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Introduction 


This book was born of the conviction that it was high time a 
listings collection offered real value for money. You have in your 
hands as complete a software library as can be crammed into close 
on three hundred pages. We have pulled out all the stops to offer 
you as varied, innovative and exciting selection of programs as 
possible. There are arcade action games for those of you whose 
fingers naturally twitch around the cursor control Keys, tactical 
games for the more cerebrally inclined, genuinely novel games as 
well as classics of the genre, quizzes, tests of your mental agility, 
party games and a leavening of utility and educational programs. 
In short, for the price of a single cassette we’ve put together a 
collection of sixty fully-developed programs which have been 
exhaustively tested before being dumped straight to the printer. 
This ensures the accuracy of the listings, so all you have to do is to 
get your eager fingers flashing across the keyboard and faithfully 
reproduce the programs on your screen. 

A few words about the listings themselves. We have introduced 
what we hope will prove to be a useful innovation to differentiate 
the user-defined graphics from the rest of the code. Each time a 
user-defined graphic appears in a program it is printed italic 
capitals; e.g. A. This will hopefully ensure that the Earth will be 
attacked by fully-fledged aliens rather than bewildering fleets of 
capital ‘A’s! We should also point out that in order to get as many 
programs as possible into the book we have extended the line of 
the listings to forty-five characters, as opposed to the thirty-two 
characters of the Spectrum screen. This simply means that you 
should take extra care over the spaces to ensure that you get the 
displays right. 

Finally, we would like to extend our thanks to the team of 
converters and checkers without whom this project would not have 
been possible. Their selfless devotion to accuracy inspired us to 
slave over hot keyboards into the midnight hour. 

So now it’s up to you. A quick glance through the contents 
pages reveals that the Earth is being threatened by anything from 
an alien invasion fleet to a vampire cat! As usual, you are our only 
hope, so get to the keyboard and go get ’em! 


Minelay 


Minelay is amaze game in which your hero runs about collecting golden 
eggs and avoiding the deadly mines which are scattered randomly about 
the maze. A fiendish little ‘minelayer’ scuttles around the screen in hot 
pursuit. Contact with this persistent creature results in instant death. 
Here is the good news. A number of axes are dotted around the playing 
area which the player can pick up and carry around. Each axe can be 
used both to break through maze walls and also to fend off direct attacks 
by the minelayer. 


1 RANDOMIZE : BORDER @: PAPER @: INK 7: CL 


5 REM @ F.Stanley (21.53.83) 
i@ GO SUB 998g 
15 LET hs=¢ 
2a GO TO 6936 
5@ BEEP .1,-1¢ 
35 LET 11=3 
6@ PRINT AT 6,13; "8B Hi-score "“jghs 
1@@ PRINT AT yi,xis" “sj INK 63AT y,x5 a8: LET 
yil=y: LET xi=x 
11@ LET x=x+¢IN 57342=254)-¢CIN S?342=251)2 4 
ET yey+(IN 65278=253)-(IN 64519=254) 
126 LET a=ATTR (y,x): IF SCREENS (y,x)=" " T 
HEN GO TO 7¢¢ 
122 IF a=? THEN IF as="C" THEN GO TO S@g¢ 
125 IF a=? THEN LET y=yl:i LET x=xi1 
13@ IF a=7@ THEN BEEP .@1,2@: LET sc=sct+1@i 
PRINT INK 73AT @,63sc: IF sc/S@@=INT (sc/5d 
@) THEN PRINT AT @,12+1i3 FLASH 1; "8": FOR g 
=1 TQ 5: BEEP .2,-38: NEXT g: PRINT AT @,12+1 
is"A": LET li=litl 
149 IF a=5S THEN GO TO 6906 
1i5@ IF a=68 THEN BEEP .1,198: LET as="C" 
799 PRINT AT my,mxi3" "i IF RND>sk THEN PRIN 
T AT myiygmxis INK 553 "F" 
7@5 LET myi=my: LET mxi=mx 
Fig LET my=my+(.5 AND my<y)-(.5 AND my>y): L 
ET mx=mx+(.5 AND mx<x)-(.5 AND mx>x) 
715 IF ATTR (my,mx)=6 THEN GO TO 6988 
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728 PRINT AT my,mx} INK 53 BRIGHT 13"D" 
949 IF RND<.2 THEN PRINT AT RND¥18+2Z,RND¥28 
+13} INK 63 BRIGHT 13"£": IF RND>.9 THEN PRIN 
T INK 4; BRIGHT 13AT RND¥19+2,RND¥Z28+13 "6" 
999 Go Ta 196 
59@@ IF y=1 OR y=21 OR x=@ OR x=3@ THEN GO T 
Q 125 
5905 FOR #=5@ TQ @ STEP -5: BEEP .@2,: NEXT 
+ 
5@1g LET a#="B8" 
5838 GO To 13¢ 
5508 PRINT AT @,12+1i$" ": PRINT AT y,x3" "i 
LET y=2! LET x=1 
56@@ LET my=INT (RND¥11)+19: LET mx=INT (RND¥ 
18)+12: GO TO 19¢ 
6888 PRINT AT my,mxj" "! LET my=INT (RND¥11) + 
1@: LET mx=(RND¥18) +12: LET myi=my: LET mxi=m 
xt IF a#="C" THEN LET at="2": FOR f=8 To 49 
STEP 5: BEEP .@4,4: NEXT #: GO TO 798 
6885 PRINT AT yt,xis3" ": FOR f=1 TO 7: FOR g= 
7? TQ @ STEP -1: PRINT INK g3AT y¥,x3"8": BEEP 
.82,9%41 NEXT gi NEXT F 
6087 LET li=li-1: IF 1i<>@ THEN GO To 559¢ 
6818 FOR g=@ TO 4@: NEXT g 
6828 CLS : PRINT AT 5,83 INVERSE 13;"G AME 


AOU ER 

6225 PRINT AT 6,93 INK 53$ BRIGHT 1; "You score 

d "$sc 

6926 IF sce>hs THEN LET hs=sci PRINT ’’" Well 
done- A new high-score!!": GO TO 68398 

6927 PRINT ’** The high-score is "jhs 

6836 PRINT INK 4’’’’" Press i for a hard ga 

me, or 2 for an easier game." 

6946 IF INKEYS<>"1" AND INKEY#<>"2" THEN GO 

Ta 4684¢ 


6@45 LET sk=(.7 AND INKEY$="1")+(.85 AND INKE 
Ye="2") 

695@ CLS 

7040 FOR f=1 TO 21: PRINT AT #,93"A"SAT #,383 

"A": NEXT # 

7818 FOR f=1 TO 29: PRINT AT 1,45 "A"SAT 21,43 

"A"s NEXT # 

7828 FOR g=1 TO (7 AND sk=.85)+(14 AND sk=.7) 

> LET s=RND¥28: LET f=s+RND¥1@: LET x=INT (RN 
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DEPH2+1: IF £329 THEN LET #=29 

7838 FOR y=s TQ ff: PRINT AT x,yys "A" 

7O84O NEXT » 

76856 LET S=RNDKL7+2: LET f=S+RND¥19G: LET x=IN 
T (CRND#¥14)#2+2: IF ¢>26 THEN LET f=28 

79866 FOR y=s TO #2 PRINT AT y,x3 "A" NEXT y: 
NEXT 9g 

7399 FOR f=1 TO 29 

7498 LET y=RND¥138+2: LET x=RND¥28+1 

7410 IF SCREENS (y,x)="" THEN GO TO 7489 
742G PRINT BRIGHT 15 INK GSAT vy, x3 "£"s NEXT 
+ 

7588 FOR f=1 TQ 19 

7519 LET y=RND¥18+2: LET x=RND¥28+1 

P5289 IF SCREENS (y,x)="" THEN GO TO 7516 
754@ PRINT INK SSAT yax3 "Ff": NEXT £ 

7558 FOR ¢=1 TO 5: PRINT AT RND¥1L8+2,RND¥28+1 
3 INK 45 BRIGHT 13 "G"2 NEXT £ 

7eee@ LET y=2: LET x=1: LET yi=y: LET xi=x: LE 
T as="B" 

78@4e@ LET my=INT (RND¥11)+198: LET mx=INT (RND*¥ 
18)412: LET myl=my: LET mxi=mx 

7859 LET sc=@: PRINT AT @,@3 "Score "sc 

7999 GO TO 5¢ 

9aee@ FOR #=USR "a" TO USR "g"+7:2 READ g: POKE 
#,9: NEXT Ff 

9918 DATA 24,36,66,153,153,66, 36, 24,28,28,73, 

62,8,28, 26,54 

9A2B DATA 229,229,753, 126,72,92,29,54,195,36,2 

4,36,126,99,12959 

9A3G DATA 6,9,8,12,62,126,62,12,69,9,8,73,42,2 

8,62,12?7 

G4 DATA 4,14,6,12,24,48,96,9 

959a@ PRINT INK S5AT 8,85" 


9698 FOR #=@ TO 4: PRINT INK S$AT #,83 BRIGH 
T -13"0") FOR g=1° TO 31 

9619 PRINT AT #,9-13 OVER 13 INK 9} BRIGHT 13 
wots INK S30" 

9628 IF SCREENS (#,9-1)="_" THEN PRINT INK 

23} PAPER 73AT #,9-15"F" 
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9630 BEEP .94,(gt+tf)/3 

964@ NEXT g: PRINT AT £,3135" “i NEXT fF 

9645 PLOT 16,173: DRAW 3,-19: DRAW 4,19: P 
@G,173: DRAW 7,-28 

9650 PRINT ’ "Move about the maze picking u 

golden eggs, avoiding the mines & alsa the 
ne-layer." 

P7909 PRINT INK 6’"If you pick up an axe y 

can destroy the maze walls, mines, and 

e mine-layer."“ 

97508 PRINT *"You begin with 3 liyes, but a 


extra life is given every 3dg points." 

9899 PRINT INK 6’" @.....UP faeaae 
DOWN"? INK 5’" I.....LEFT P....RIGHT" 
S998 INPUT “Press ENTER to start...";a% 

991@ IF INKEYS="" THEN GO TO 9916 

E20 CLS 


9999 RETURN 
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Fall Guy 


This is agame for two, in which each player directs a small figure down a 
vertical maze so that it can drop through a hole in the moving floor at the- 
bottom. The figure is manoeuvred through the maze by directing 
markers up and down the outer walls and shifting horizontal sections of 
the maze to the left or right, allowing the figures to drop through to lower 
levels. The trick is to alter the internal pattern of the maze in order to 
move your own figure without at the same time opening up advantages 
for the opposition. 


1 BORDER @: PAPER @: INK 7: CLS 
2 REM @ PAUL STANLEY 1963 
5 GO SUB Sang 
15 INPUT "Please enter your names. F 
irst, the player on the left:",b#: INPUT “And 
now the player on the right: "’c% 
17 PRINT AT 18,198; "PLEASE WAIT" 
26 GO SUE GOD 
327 GQ SUB Fade 
4@ LET y=INT (RND¥19)+2:5 LET yil=INT (RNDK1I9 
,4+2 
42 LEY g=?7:i LET gl=24: LET f=i: LET f1=1 
44 LET w=" AAAAAAAAAAAAARAAAAA" 
45 FOR i=i@ TQ 3G: BEEP .@7,i: NEXT i 
S@ PRINT INK 35AT y,45"CO"3 INK 6SAT yl,275 
ape 
68 PRINT BRIGHT 1: INK S3AT £,95"8"5 INK 6 
sAT 1,915 "8" 
YO IF SCREENS (f+1,9)=" " THEN PRINT AT f, 
gi" "3 LET #=+1: PRINT AT £,93 BRIGHT 15 INK 
33 'B"> BEEP .@1,108 
7a IF SCREENS (#+1,9)="0" THEN FOR i=3 TQ 
9: BEEP .@1,i¥5: NEXT i: PRINT AT £,93" "35 BR 
IGHT 1: INK 69AT 1, 7¢"R"? LET £=1i: LET, g=? 
75S IF SCREENS (fit+i,gii=" " THEN PRINT AT 
1,913" ": LET f1=fi+1: PRINT AT 1,915 BRIGH 
TO 15 INK 65 "8": BEEP .@1,20 
7é IF SCREENS (fi+1,91)="0" THEN FOR i=3 T 
Q°G) BEEP amity iktor NEXT a PRINT AT #hy925" % 
5 BRIGHT 18h INK GF AT 1,245 "8"2 LET #1=1: LET 
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gi=24 
7? IF £=21 OR fi1=21 THEN GQ TO 5900 
2@ IF IN 63486=253 AND ¥?2 THEN PRINT AT ¥ 


640" "2 LET vey-i 
25 If IN 61432=254 AND v1i3}2 THEN FRINT AT 
Pipers’ 84 LET yleyror ~ 


SC IF IN 65¢22=254 AND vi28" THEN FRINT AT 
See eS tik D. sy Saye 

SS IF IN 4?15@=253 AND v1i<2@ THEN PRINT AT 

yi,2r5" "s LET wis=yiti 


199 IF IN 6451¢@=254 THEN GQ SUB 1eaa 
i@3 IF IN 2P342=253 THEN GO SUB 2adaq 
ig IF IN 6451@=253 ic SQ SUE L1@d 
i135 IF IN S?24e=254 THE GQ SUB 21¢qa 


268 LET w=atil Ta a PRINT AT 21,43; I 


OO@ LET i=y-1: IF y=# THEN IF 9=6 THEN IF 
aé(i,2)<>" " THEN RETURN 

1681 IF y=fi THEN IF g1=6 THEN IF a®(i,2)<> 
"4 THEN RETURN 

1992 LET a®(i)s=aS(i,2 TO )+a$li,1) 


1@@35 IF y=f THEN IF a@(i,g-S)<>" " THEN LET 
9=9- 1 
igs? IF y=f1 THEN IF a®@(i,gi-B)¢3" " THEN L 


ET gi=gi-1 
1@ig PRINT AT y¥,é6;a8(i)! RETURN 

119@ LET i=y-1i: IF v= THEN IF g=25 THEN IF 
aé(i,19)<¢>" " THEN RETURN 

11@1 IF y=f1 THEN IF gi=25 THEN IF as(i,19) 
<>" " THEN RETURN 

1192 LET a®(il=ae(i,2@)+as(i, TQ 19) 


11@5 IF y= THEN IF aS(i,g-5)<>" " THEN LET 
g=gtl 
1147 IF yv=#1 THEN IF a®(i,gi-5)<>" " THEN L 


ET gli=gitl 

1iia@ PRINT AT y,6$a8(i)? RETURN 

299@ LET i=yi-i: IF yi=fl THEN IF gi=6 THEN 
IF aS(i,2)<>" " THEN RETURN 

26@1 IF yi=f THEN IF g=6 THEN IF a#(i,2)¢>" 
" THEN RETURN 

@@2 LET aS@(il=as(i,2 TO )tas(i,iy 

@a5 IF yi=fl THEN IF a®(i,g1-S)<>" " THEN 

T gi=g1-1 


™ hh 
m 2 St 


FallGuy 13 


2eg? IF yi=f THEN IF a#(i,g-5)<>" " THEN LE 

T g=3-1 

2Oig PRINT AT yi, djsaée(ids RETURN 

2160 LET i=yi-i: IF yi=fi THEN IF g1=25 THEN 
IF aS(i,i9)<>" " THEN RETURN 

2i@i IF yi=f THEN IF g=25 THEN IF a#(i,19)¢ 

>" " THEN RETURN 

2ig2 LET a®(il=aSli,26)+asti, TO 19) 


21965 IF yl=fi THEN IF a®(i,gi-S)<>" " THEN 
LET gi=gittl 

PIS? IF vi=f THEN IF a€(i,g-S)<¢>" " THEN LE 
T g=gt! 


2ii1@ PRINT AT yi, 6ja8(i):s RETURN 
S@q@ IF f=21 THEN LET y=fi LET x=9: LET ink= 


> 
— 


S@@2 IF fiL=21 THEN LET y=fii LET x=giti LET i 
nk=6 

S@@S LET we="RE"2 LET c=1: FOR g=8 TO 16: PRI 

NT AT vw.*s BRIGHT i3 INK inkswS(c)}: LET c=(c= 

2)+¢(2 AND c=1): FOR i=1i TO 3: BEEP .@2,1: NEX 

TO i: NEXT g 

Sd@6 FOR f=a@ TC Si: PRINT AT 18,5" "SAT if, f 
3” "SAT 2a,Ff5" "SAT 21, fs INK 25" "3 NEXT F 

Saag" FOR f=2 TQ 28 STEP 2: PRINT INK S3AT 19 
of-is" "SAT 20,435 "8": BEEP 11,18: PAUSE Si PR 
INT AT 26,45" "t INK S5AT 19, 4+15"4£"5 BEEP .t 
,28: PALSE SBS: NEXT F 

S91@ CLS +: LET w=(bS AND f=21)+(cS AND f1=21 
>}: IF #=21 AND Ff1=21 THEN GO TQ S959 

g2e PRINT INK 4:iAT 5,985 "Well done "Swes"!" 
SE FRINT INE 6’? "You were the best Fall Gu 


a94a GO Ta Side 

S@5@ FRINT INK 43AT 5,43"The result was a dr 

aw. "’ INE 6’? "You both did equally well." 

Sida FRINT ’’ "Press ""X"" to quit the program 
-"’ INK 5’? "Press “"1"" for the same course."’ 
INK 4° "Press ""2"" for a new course." 

Siig IF INKEYS="x" THEN STOP 

Si2e@ IF INKEYS="1" THEN GO TO 559¢ 

5i3SO IF INKEYS="2" THEN CLS : PRINT AT 19,19 
;"PLEASE WAIT": GO TO 228 

Si4¢@ GO TO Sild 

SS5S€@ CLS : FOR f=1 TO 19: LET i=INT (RND¥20) + 
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1: LET aS(fi=as(t,i TO )+tas(f, TO i): NEXT F£ 

56¢9 GO TQ 3d 

POOR CLS : FOR f=1 TO 19: PRINT AT #41, 63 a8(F 
?): NENT £f 

YOAG FOR f=2 TQ 21: PRINT INK 2i PAPER 43 AT 

F555 "A*SAT £,265 "49"2 NEXT F 

Ya2s FOR f=5 TO 26: FRINT INK 23 PAPER 45 AT 
1,43 "A": NEXT 

YESA8 PRINT AT 1,73" "SAT 1,245" "GAT 21,163" 
2049S PRINT BRIGHT 13 INK S3AT @,@:b%3 INK 63 
AT @, (32-LEN cH) 5ch 

POEO9 RETURN 

Sge@a DIM a#(19,26):3 FOR f=1 TG 19 

Beia FOR g=i TO 28: LET a®(f,gi)=" "3 IF RND>. 
S THEN LET a#(#,9g)="A4" 

SO@is TF PND<.@2 THEN LET at(f,g)="Q" 

Sa7aq NEXT gi NEXT £ 

28¢a RETURN 

°90@a FOR fSUSR "a" TO USR "e"+7: READ g: POKE 
#,9: NEXT f 

9G1ia DATA 17°4,85,170,385,179,85,178,85 

9G2E DATA 24,24, 255, 68,689,99,46,195 

S938 DATA &,12,259,137,27259,12,8,8 

9944 DATA 16,48,95,1497,95,48,16,¢0 

FOG DATA 153,237,126,69,68,126, 219,129 

Sead FRINT INK GSAT 17,83" aaa ai a a 

aaa aaa a aeza a a aoaaa 
aaa aaaa a a a a ~@ a eaa 
a aaa aa a a @ aaa aaa aaa 

: a" 

9354@ FOR f=3 To 7: FOR g=@ TO St 

95a IF SCREEN® (4+14,9)="a" THEN FRINT INK 
F5AT £414,959 "R" 

9555 BEEP .@6,f¥2+g 

95eM NEMT gi NEXT 

SS7aG FOR f=1 TQ 17: POKE 23692,255: FRINT AT 

2425" "] FOR g=20 TQ 30: BEEP .G@85,9! NEXT 


938@ PRINT INK 43AT 6,@%"°A Game For 2 Player 
s Whoa Have ToGuide Their Man To The Bottom Qf 
The Grid Before Their Opponent." 

eSSe PRINT INK S’ "Avoid The Mines (Q), For L 
andiy30rn Qne Of These Will Send You Right T 
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a Tre Top Again.” 
F4GC PRINT INK 6’ "CONTROLS: UP “DOWN LEFT 


RIGHT" 
9619 PRINT ""PLAYER 1: 2 A Q we 
962 PRINT INK 4’ "PLAYER 2: @ a Q 

FP yn 


9629 FRINT ° "Press Any Key To Continue.... "5 

PAUSE @& 

64d@ FOR f=1 TO 26: FOKE 23692,255: PRINT AT 

21,313" "“: FOR g=2e6 TO 34: BEEP .9@5,9: NEXT 
gq: NEXT + 

9458 RETURN 
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Tug-of-War 


Tug-of-War is a two player game consisting of a canyon with a rope 
stretched across the top, held by a team of three figures on either side. A 
small UFO flies overhead and each player takes turns in dropping a 
parachute from it, attempting to land on a target which appears lower 
down the screen in a random position. Every time a parachutist hits the 
target, the opposing team is pulled further towards the edge of the 
canyon and if a man topples over the precipice, the team is weakened. 
The winner is the player who succeeds in pulling all the opposing team 
over the edge of the canyon. 


1 BORDER ©: PAPER @: INK 7: CLS 

3 GQ SUB 2800 

10 GO SUE see 

78 GO SUB Vege 
148@ SRINT AT 14,ti" "s LET t=INT (RNDK2S) +2: 
PRINT AT 14,t5" " 
i@5@ FOR f=@ TO 30: PRINT AT @,f35" Z" 
196@ IF INKEY$="a" THEN GO TO 2coe 
ig@465 BEEF ta,25 
197@ NEXT ff: GQ TO 3e09G 
799@ FOR g=0 TO 14 


2QLG PRINT INK 4;AT 9, #415 "7" 
2826 BEEP .95,9 

2G25 PRINT AT 9,413" " 

283@ NEXT g 

2G4@ IF #+1¢>t THEN GO TO 3e890 

2190 LET xa=xa-1: LET xb=xb-1: FOR f=2@ TO 3a 
: BEEP .@1,4: NEXT ¢ 

Pilg PRINT AT 14,t3" " 

2200 PRINT INK 2HAT 16, vataBli);" "ZAT 1?,%a 
paS(2)¢" "s INK SFAT 16,xbibS(L)5" "FAT 17 yxb 
poec2ygy 

221 PLOT ¢xa+LEN a$(i})¥8,41: DRAW (xb-xa-Le 


N a$(i))¥8-1,@ 
2@ IF ATTR (18,xb)=3 THEN GQ Ta 3ee¢ 
ET uelé: FESNT AT doalar "Ar t7y 12s" 


tb=.82 THEN TIM bS(2,4)5 LET bS¢(1)=" 
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EFEF'S LET bS (2) ="GHGH" 
2222 [TF tb=.802 THEN DIM bS(2,2): LET bS(i)= 
"Z£F"s LET bS(2)="GH" 
2353 IF tbh=.0@@2 THEN LET w=i: GQ Ta 650¢ 
2255 LET tbh=tb/1la 
3? LET «b=sb+2 
PRINT INK 2:AT 16, xajsath(id;" "SAT 17,x 
S(2)5" "$ INK 65AT 16, =b3be(1)5" "SAT L? 
sbe(2)a" 
@ PLOT (xa+LEN ag(1))¥8,41: DRAW (xb-xa-LE 
$(1)I*¥S-1,4 
269 GO Ta 3s0ge@ 
SSQ PRINT AT i4,ti" "2 LET t=INT (RND¥28) +2: 
PRINT AT 14,t5" * 
Gag FOR f=38 TA @ STEP -i: PRINT AT G,f35 "7 " 
3960 IF INKEY#="i" THEN GO Ta 4¢0q 
3905 BEEP tb,25 
Sa@?7@ MEXT f: GO Ta 1@eo 
499a FOR g=9 Ta 14 
4910 PRINT INK Sj3AT g,f5 "7" 
420 BEEP .9@5,9q 
4925 PRINT AT 9,43" " 
4d39 NEXT g 
4@4G@ 1F f<>t THEN Ga TO lesa 
4169 LET xa=xati: LET xb=xbtli FOR f=20 Ta a@ 
: BEEP .@1,f: NEXT Ff 
4200 PRINT INK 2:AT 16,xa-15" "SaS(LIFAT 17, 
saris" “sae(2)5 INK GSAT 16,xb-15" "SbS (1) 5 AT 
1?,xb-L3" "sbe(2) 
4219 PLOT (xatLEN at(1))*¥8,41: DRAW (xb-xa-LE 
MN aBS(1))¥6-1,96 
4228 IF ATTR (18, xa+LEN a#t(1)-1)=3 THEN GQ T 
0D idad 
4225 LET u=i4: PRINT AT 16,1335" "SAT 17,135" 
"; GO SUB 4gag 
4230 IF ta=.a2 THEN DIM a#(2,4): LET at(i)=" 
ARAB": LET a#(2)="CDCD" 
4232 [F ta=.@@2 THEN DIM a#(2,2): LET a#(1l)= 
"SBR": LET a&(2)="CD" 
$2353 IF ta=,@902 THEN ET we=2: Ga TQ 6589 
4235 LET ta=ta/io_ 
$249 SRINT INK 25AT 16, xasat(l)3AT 17, xajsat( 
2)5 INK GSAT 14, xb3bS(1L)5AT LP, xbsb#(2) 
4258 PLOT (xatLEN af{i))¥6,41: DRAW (xb-xa-LE 


i) 
4 
f 
J 


gon) 
“a Nh 
fs 
& 
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N aé(1))¥5-1,9 

4260 GO TO 1sae 

ésie FOR f=16 TO 28: PRINT INK S3AT £,u5 “AL" 
3 INK S33AT f41,55 "AN" 

6@G1ief BEEP .1,10-4 

6@28 PRINT AT f,u5" "SAT #41,u35" is 

6425 NEXT Ff 

6839 RETURN 

659a FOR #=8 Ta 7: FRINT AT 2,23 INK £3 "WELL 
DONE PLAYER “sW3"!' YOU WON'": FOR g=1 TO 8: EB 
EEP .@4,9%4: NEXT g: NEXT f 

6680 PRINT AT 5,23 INK 33 "PRESS ANY KE’ TO PL 
AY AGAIN. * 

67d PAUSE @: FAUSE @: CLS 3: GO TO 2498 

Fa@e INE Gi FOR #=8@ TQ Si: FLOT @,f: DRAW 196 
4+RNDHS,03 NEXT £¢ 

78H1@ FOR ¢=@ TO Si: PLOT 255,f: DRAW -(196+RN 
Dx5i),@: NEXT f 

yeL12 PLOT @,3i: DRAW 111,45 PLOT 255,31: DRAW 
-118,¢ 

7GiSo INK 7 

POI? DIM aei2,6): DIM bSl(2,6) 

P@2G LET as (i)="ABABAB": LET at(2)="CDCDCD": 
LET bei) ="L£F EF EF "2 LET bS(2)="6GA6GHGH" 

Feld LET xa=7: LET xb=19 

7ad4d OCRINT INK ZiAT 16, xasaSC1)3AT 17, xas asl 
2)3 INK 63AT 16,xb5b8(1)3AT 17,xbi bs(2) 

7859 PLOT (xatLlEN a€(1))#¥8,41: DRAW (xb-xa-LeE 
No ae(i))¥8-1,¢ 

76a LET ta=.@2: LET tb=ta: LET t= 

73G0G RPETURN 

Saqqgq FOR £=USR "a" TO USR "n"+7: READ 9g: POKE 
#,9: NEXT # 

@G18 DATA 24,52, 62, 69,24, 31, 255,15,9.9,9,8,5, 
248,255, 244, 15,7,753508,8,8,8%,9,128,192, 224,11 


ie 
29278 DATA @,G,8,6,8,31, 255,15, 24,44, 124,69,24 
248,255, 249,.0,1,3, 7,14, 24,48, 224, 248,224, 224 
192,9.9,9,@8 

B@3G DATA G,129,64, 36, 182, 255, 126, 69,16,124,2 
54,0,16,56,16,49 

E948 DATA 1,195, 191,55, 27,15, 7,3,128, 195,166, 
236,152,248, 224, 192,35, 5,3,7,14, 28,184,112, 192 
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3192,192,224,112,56,2°,14 

81da@ RETURN 

oceg FRINT " TUG __ CF WAR" 
9GO5 PRINT INK 3’" BY PAUL STANL 
EY " 

9666 PLOT 6,151: DRAW 255,96: DRAW @,24: DRAW 
-255,¢0: DRAW @,-24 

9a1g PRINT INK 67"A simple game for 2 plaver 
s who have to win at tug-Gt-war, not by stre 
nagth, But by reactions.” 

S020 PRINT IWK 47 "A UFO will fly across the 
top ofthe screen ard a target will appear 
the bottom. Player £ can parachute out on 
to the target by pressing ""A"", and 

a lime Von 2 nema Cetus 

INT INK 6’ "If the parachutist lands a 
no othe target you will pull the other team. I 
fo any men fall down the canyon that team wil 
Il find it harder to wir” 

9odd PRINT INVERSE i; AT 21,35 "PRESS ANY KEY 
TQ START": FSUSE @: CLS : RANDOMIZE : RETURN 
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Horse Race 


Horserace is a racing and betting game for any number of players in 
which six horses race across the screen. At the beginning of the game you 
can choose how many races there will be at the meeting. 


Before the start of each race the betting form is displayed, complete with 
the tipsters odds on each runner. The odds are a fairly accurate reflection 
of each horse’s potential. 


Starting with £200, each player may bet on one horse in each race and the 
winner is the player who ends up with the largest amount of money at the 
end of the meeting. If you want the rules to allow cheating then players 
who lose all their money may have the option of accepting the offer of an 
additional £50, otherwise they are out of the game. 


i RANDOMIZE : BORDER 7: PAFER 7: INK @: CL 
S : GQ SUB Ya@ed: CLS 
2 INPUT "How many races would you like t 

e to be at this meeting? "Sraces 
= INPUT "How many punters are there?",a 
4 DIN pla): FOR c=1 TO a 
S LET plc)=290 
6 NET <e 

i@ GQ SUF 9agg 

2@ CLS : GO SUB 1999 
19@ FOR c=2 TQ i2 STEP 2 
185 PRINT INK c/25AT c,@ic/e5" A” 
186 PRINT AT c-1,2:3"R" 
lg? NEXT c 
i@e PLOT 251,178: DRAW o,-182 
16° PRINT AT 13,23 "M8": PRINT AT @,3i; OVER 1 
"oO" 
1i@ LET a®="FINISH": FOR c=! TO &: PRINT AT 
IStc,Sisas(c):i NEXT c 

115 FoR c=ie3 To 67 STEP -ié: PLOT 24,c: DRA 
W 227,@: NEXT c 

iZi SOQ SUE Lege 
i@@e BEEP .5,8: PRINT AT 14,@; "READY": BEEP . 
5,0: PRINT AT 14,@: "STEADY": BEEP .5,12: FRIN 
T AT 14,97 "GC ") BEEP .5,18: PRINT AT 14,4 
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LET ge=@: DIM x(6): FOR c=1 TO 6: LET x<¢ 
NEMT c 
FOR c=1 TO 6 


1 
BEEF .@35,-28: BEEP .@5,-3¢ 
LET «icl=x(c)4+¢(4(c)=1 AND RND<.8) +4 (Cc) = 
RND<.77)+(4(c)=4 AND RNDK.74)4+¢(#(c) =8 A 
Dé. 71)4¢(f (c)=16 AND RND<.68)4+¢(4(c)=32 AN 
£.65) 
PRINT INK cHSAT c¥2,«(c)-15" A" 
IF «(c)=31 THEN LET ge=1 
BEEP .93,-20: BEEP .93,-38 


NEXT ¢ 

IF ge=i THEN Gao TO ig5g¢g 

60 TO lage 

DIM hid): LET many=@: FOR c=1 TQ 6 

TF x(c)=S3i THEN LET many=manyt+i: LET h¢ 
=c 

NEXT c 


IF many=1 THEN LET winner=h(1): GO Tao 1 


PRINT AT 24,96: "There is a photo-finish 6 
mn these horses: 

PRINT AT 21i,15:h¢i)57 "ShC2) 5% a 

IF many=3 THEN PRINT gh (3) 5 

IF many=4 THEN FRINT 3% "3h (4) 

FOR c=i TO Sug 

NEXKT c 

LET 2r=INT (RNDX¥4) 41 

LET winner=hter) 

IF winner=@ THEN GO TQ i@é? 

IF RNDE.33 THEN LET g$="a short head": 
1979 

IF RND<.4 THEN LET g%="a neck": GO Ta t 


LET g8="i1 length" 

PRINT AT 20,635" 

FRINT AT 29,15 "The winner is "Swinners” 
on by": PRINT AT 21,159% 

FAUSE i3¢ 

CLS 

GQ TO iig@ 

PRINT AT 29,15 "The winner i858 *iwinners 
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who won By "if PRINT “" “SINT (RND¥3)+25" lengt 
hs." 

1@¢5 PAUSE 136: CLS 

11@@ FOR r=1 TOa 

1igi IF ptr)=@ THEN LET r=rt+i: GO TO (1191 A 
ND réatis+(1i3@ AND r=att) 

1i@S TF e(r)d=ewinner THEN LET pird=ptr)+b(r)% 
#(winner?}: GO TQ 1115 

1i1@ LET plrdeHptr)-bir) 

1i15 IF ptr)<=@ THEN GO Ta 8ea0 

1ii? IF et(r)<>winner THEN GO Ta 1125 

lizg@ CLS + PRINT AT 19,45 "Well done punter "3 
rp" '"?"*¥our horse won and you now have £"j3p¢ 
r): PAUSE 8: GO TO iis 

1125 CLS : PRINT AT 10,45 "Bad luck punter "gr 
3" §"7?¥our horse did not win, and so you no 
“ have £"tpir): PAUSE @ 

1iS@ NEXT r 

11560 GQ TO 29 

199 LET races=races-i: IF rarces=-1 THEN GO 

TO 608g 

20e@ DIM £(4): FOR c=1 TO 6: LET f(c)=2* (INT 

(RND¥6)}2 NEXT c 

2@20 PRINT "The tipsters reckon the betting: " 
2925 FOR c=1 TO 6: FRINT INK c3 PAPER (7 AND 
c<4)4+(@ AND cS) 5 AT 2kc,23 "HORSE "gos" "5 
Godse ee 

2026 1F fic)=1 THEN PRINT INK c§ PAPER (@ A 
NDP ceS3d+¢( > AND c84)3AT 2c, 135 "EVENS" 

242¢ NEXT = 

039 LIM e (a): DIM bla): FOR f=1 TO a 

2431 IF pt#)=@ THEN LET f=4+1: GO TO (2431 A 
ND f<ati)d+(2659 AND f=at+l) 

2432 PRINT AT (4,13 "Punter "345" :":5 PRINT ’" 
You kKave £"spcft)3". ": PRINT “How much 

mOuUld you like to bet?? 

2633 INPUT b(f#): IF bf) optft) THEN GO TO 2435 


2934 IF btCf) <>INT (btf)) THEN GO TQ 2933 
2O35 PRINT ’ "Gn which horse is this to be 
Placed?" 

2836 INFUT et Ff) 

2O37 IF |eff)<1 GR et f}>6 THEN GO Ta 2636 
2433 PRINT AT 17,83" 
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2OS9 PRINT AT 19,935" 

290490 MEXT F 

2850 CLE 2° RETURN 

edges PRINT "THE MEETING IS NOW FINISHED" 

6Gid FOR f=1 TOa 

6@1i5 IF ptf)=8 THEN LET f=fti: GO TO (615 A 

ND f<at+tid+(6949¢@ AND fFatl) 

6028 FRINT *"Funter "“sfi" finishes with £"jp¢ 
#) 

6@3@ NEXT F 

6948 PRINT INVERSE 1:7’ "Press any key to play 
again. *: PAUSE @: RUN 


?@AQG PRINT 77" S 2 SSE BEE REE BEE 
HEE EEE S&S a EEE EE 
EEE EEE EE HEREE EE a8 
GH 888 2 8 S88 BER’ 
T@IG SRINT 7?" S30 SHE EEE 
&2 aE ¢ 8 a SEE 8 
an gz aE REE a 


EE 8 HEE HEE’ 

P28 PRINT °7°A gambling game for the whole 

family"? ?" @ Faul Stanley" 
>: PAUSE 303: RETURN 
e0geo Cha : PRINT AT S,@i"Tut Tut! Punter "grj 
", you have": PRINT “run out of money." 
eaaq5 PRINT : PRINT "I must therefore not let 
you betany more.” 
2619 PRINT ’ "However. if your rules are to 
allow cheating, if you press “3; INVERSE 13;"C" 
3: PRINT 3: " Iwill give you £598 more.” 
RB@20@ PRINT “Otherwise press “3 INVERSE 13 "X"5 

N 


INVERSE @3" and I will cancel you from th 
e game” 
S@3q0 IF INKEYS="x" OR INKEYS="K" THEN LET pt 
rd=@: GO TQ 305¢ 
eg4ga IF INKEY$="c" OR INKEYS="C" THEN LET pt 


r)=5ea:; GO TO sessed 

6945 GO TO 3930 

3058 Cli : GO TQ il3ed 

9g@u8 FOR c=USR “a" TQ USR "a"+?: READ vi POKE 
cv: NEXT c 

O@G1 DATA to, BIN @@G11G11,18, 254,62, BIN P118e 
119,BIN igi@i@ig, 34 

9e99S RETURN 
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Championship Boxing 


Although we say it ourselves, this program is very close to being a master- 
piece. Let’s face it, you’re never going to make it into the ring, but the 
hours you spend keying-in programs amount to a great deal of repressed 
aggression. So here’s your chance to take on the boxing champions of the 
world without stirring from your armchair. The program offers you a 
bird’s eye view of a boxing ring and the opportunity to go three rounds 
with an opponent of your choice. You only score points if you manage to 
connect with the head, and a KO is possible if your strategy’s slick 
enough. 


BORDER 5: PAPER 6: INK @: CLS 
REM @ P.STANLEY 
LET si=@: LET s2=sl 
GO SUB 7898 
GO SUB 9998 
LET round=1 
GQ SUB 9598 
GO SUB 9558 
PRINT AT 17, 23round 
BEEP .25,98: BEEP .25,9 
LET y=2: LET x=7: LET yi=y: LET x1l=x 
LET g=23: LET f=17: LET fl=f: LET gl=9 
9@ LET tm=3: LET ts=2 
95 LET e=¢ 
19@ PRINT AT yl,x15" "GAT yit1,xls" "SAT yl 
42 145" "; INK 25AT y.x3"AC"5 PAPER @3AT yl 
,xe¢"O"3 PAPER 63AT y+2,xj"£G": LET yi=y: LET 
x1l=x 


Oo O Oo Gi NR 
QUAN GRHDAMUNE 


“J 


120 PRINT AT f1,g15" "SAT fiti,gitis" "SAT 
#1+2,g15" "SAT £,95"AI"§ PAPER 75AT Ft1, atl 
"DY; PAPER 63AT #+2,95"JA": LET fl=#: LET gi= 
9g 


139 LET ts=ts-2: IF ts=@ THEN LET tm=tm-1: 
LET ts=69: IF tm=-1 THEN GO TO 8598¢ 

15@ PRINT AT 17,273tmi"i"3 ("@" AND ts<1@)its 
49@ IF IN 64519=254 THEN GO SUB 1988 

416 IF IN 57342=254 THEN GQ SUB 1199 

450 IF g=x+tl1 THEN IF RND>sk THEN GO SUB 29 
aa 
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SOO LET y=y+(IN 61438=239 AND y<17)-C(CIN 6143 
@=247 AND y>2) 

S1@ LET x=x+(IN 61438=251 AND x<22)-(CIN 6348 
6=239 AND x>?) 

S5@ LET f=f+INT (RND¥2.5)-INT (RND¥2.5) + (#<y 
)-(#>dy) 

S53 IF #<2 THEN LET f=2 

O55 IF #317 THEN LET #=17 

Se@ LET g=9+tINT (RND¥2.5)-INT (RND¥2.5) + (9<x 
+2)-(g>x+2) 

S63 IF g¢x+1 THEN LET g=x+tl 

365 IF g>23 THEN LET g=23 

378 IF NOT e THEN IF x>2@ THEN LET e=1 

Ss@@ IF © THEN LET e=e-(e-1 AND x<2@)4+1: IF 
e=18 THEN GO SUB 3999 

6998 BEEP .91,-29 

788 GQ TQ 196 

19969 PRINT INK 23AT y,x+13"8C": BEEP .1,2@ 
1619 PRINT INK 23AT yyxtis"c " : 
1928 IF y=f+1 AND x=g-1 THEN LET si=sit+i: BE 
EP .@4,@: PRINT AT 8,23s1 

1938 IF si=k2 THEN GO Ta 46999 

199@ RETURN 

119@ PRINT INK 23AT y+2,x+13"FG": BEEP 1,268 
111@ PRINT INK 23AT y+2,xt+13"6@ " 

112@ IF y=#-1 AND x=g-1 THEN LET si=si+i: BE 
EP .94,9: PRINT AT 8,23s1 

1139 IF si=k2 THEN GQ Tao é49¢6¢ 

119@ RETURN 

2690 IF *<y THEN GO TO 219¢ 
281@ PRINT AT f,9-15"H2": BEEP .1,3¢ 
2926 PRINT AT £,9-15" 4" 
2936 IF f=y+i THEN LET s2=s2+1: BEEP .94,9@: 
PRINT AT 8,28382 
2935 IF s2=kil THEN GO TO 459¢@ 
2848 RETURN 
219@ PRINT AT f+2,9-135 "JF": BEEP .1,39 
2119 PRINT AT f+#2,9-135" 7" 
2138 IF #=y-1 THEN LET s2=s2+1: BEEP .94,9¢: 
PRINT AT 8,283s2 
2135 IF s2=ki THEN GO TO 659@¢ 

2146 RETURN 
3968 PRINT AT yi,xi5" "SAT yiti,xi3" "FAT y1 
+24 015" °°" 
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3@1@ FOR x=19 TQ 12 STEP -1: LET xi=x 

3928 PRINT AT yi,x13 INK 23 "AC"SAT y1l+2,x15"F 

G"3AT yiti,xil3 PAPER @3 INK 23"D"§3 PAPER 63" 
"5 PAPER 23 INK 63"D"3 PAPER 635"D"3AT y1,x1l+2 
5 INK 435 "Z7 "GAT yit2,x1lt235 "A " 

3922 BEEP .92,9 

3925 NEXT x 

3930 PRINT AT yi,xit25" "SAT yiti,xi+25" "SAT 
yit2,xit25" " 

3948 LET e=@: RETURN 

6998 PRINT AT £,93 "AAZ"GAT F£4+2,95"77AK"5 INK 2 
3AT F4+1,95"59"5 INK O35 "MM"s5 INK 65 PAPER 35 "D" 

68198 PRINT FLASH 13AT 1,73 "WELL BOXED- A K.O 
.~": BEEP .2,-28 

6828 GO TA 6699 

6588 PRINT AT y,x-13 INK 25 "ACO"SAT yt+2,x-15" 

£GQ"3 INK 63 PAPER 23AT yti,x-25"D"5 PAPER 63 
INK 23 "MM@"s INK 45 "A" 

6519 PRINT AT 1,73 FLASH 13"BAD LUCK- A K.Q. 
tu 

6688 FOR f=1 TO 269: NEXT f 

6629 CLS : IF ki=s2 OR s2>si THEN GO TO 67996 
6639 PRINT “Well done ' You beat "3b$3" in",r 

ounds" rounds.” 

6649 PRINT INK 3’"The result in points was “ 


351, "for you, and "5s25" for "3bs 
6659 PRINT INK 2’"I suggest you try a toughe 
r opponent.” - 


6668 GO TO 67898 

6768 PRINT “Bad luck ! You were beaten in "fr 
ound, "rounds." 

67198 PRINT INK 3’ "The result in points was " 


351, "for you, and "$523" for "56% 
6748 PRINT INK 2’"I suggest you try a weaker 
opponent." 


6788 PRINT "Here’s your choice:": RESTORE 7598 
@: PRINT : FOR f=1 TO 1@: READ at: PRINT £5". 
22750". " AND £4218) 53 a8: NEXT Ff 

6799 INPUT INK 73 FAPER 63 "Enter your oppone 
nt’s number or @ if you’ve had enough. "§ 
x 

68998 IF x=@ THEN STOP 

6819 CLS : RESTORE 7599: FOR f=1 TO x: READ a 
$: NEXT £: LET bS=aé(i TO 6): PRINT “OK - You 


ba a BD om el” 
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shall fight "s;b%: PRINT INVERSE 1’ INK 3’ "P 
RESS ANY KEY TQ START THE BOUT." 
6828 PAUSE 8: CLS 
6839 LET si=@: LET s2=si: LET sk=(11-x)/12: L 
EY k2=1@+x+INT (RND¥6): LET k1i=16-x+INT (RND*¥ 
19): GQ TO 15 
?86G RESTORE 75969 
7198 PRINT AT 16,96; "Enter your name(up to 6 1 
etters)": INPUT c%#: IF LEN c#>6 THEN GO TO 7 
189 
72868 CLS 
73588 DATA "Henry Hopeless", "Arnold Awful”, "Ni 
gel No-Good", "Philip Fair","Andrew Average”,” 
Roger Right-Hook","Brian Brick-Wall","Simon $ 


uper","Edward Excellent", "Flynn Fantastic” 
71GB PRINT INVERSE 13" CHAMPIONS 
H I P BOXING ae 
INVERSE 93" @ PAUL STANLEY” 


7528 PRINT INK 3’"So you want to be a champi 

on do you? If so this is the game foryou."$ 
INK 2’"Which opponent do you wish to fight 

first?" 

7538 PRINT : FOR #=1 TQ 18: READ a%: PRINT I 

NK 1543 "..."5 0". " AND £<>1@8) 3 a83 NEXT F 

75496 INPUT x: IF x<1 QR x>18 THEN GO TO 7549 
7345 LET sk=(11-x)/12 

7546 LET k2=19+x+INT (RND¥6): LET ki=16-x+t+INT 
(RND¥19) 

7558 RESTORE 7599: FOR f=1 TO x: READ at: NEX 
T €: LET bS=at(1 TO 6) 

75698 CLS : PRINT "Very well, your opponent wi 
11 be"*s;a%’ INK 2’"Each bout you fight is only 
3 rounds. Move about the ring with5S-8, and 
punch with @(left hand)and Flright hand). No 
te that youcan move and punch at the same ti 

me." 

7378 PRINT * INK 1:"Qniy punches to the head 
score and k.Q.s are possible.” 

7569 PRINT ’ INVERSE 13; "PRESS ANY KEY TQ STAR 
T THE BOUT.": PAUSE @: CLS 

7399 RETURN 

B59@ PRINT AT 17,27;"8:998" 

3595 BEEP .25,6: BEEP .25,9 

651@ LET round=round+ti1: IF round=4 THEN LET 
round=3: GQ TO 6629 


28 Championship Boxing 


8529 PRINT AT 21,4; "Prepare to fight the next 
round."5 INK 65 PAPER @3AT 2,73 "D"3AT 19,243 
"DY"; FOR i=i1 TO 29 

8325 LET y=y-(y?2):5 LET x=x-(x>7) 

853¢@ PRINT AT yi,xts" "SAT ywiti,xits" "SAT yl 

+2,x15" "3 INK 25AT y,x3"AC"§ PAPER S3SAT yt 
oX5"D"§5 PAPER G63AT yt2,x5 "£6": LET yi=y: LET 

xL=x 

8535 LET f=f+(f<¢17)2 LET g=gt+(g¢<23) 


8548 PRINT AT f1,915" "SAT F141, git13" "SAT 
f1+2,915" "SAT £,95"H7"3 PAPER 73AT f+1,9+13 
"DD"; PAPER G3AT £+2,95"JVJA": LET f1=f: LET gl= 
9 


6542 IF ATTR (2,7)=5@ THEN IF ATTR (19,24)=4 
8 THEN GO SUB 955@: FOR f=-1 TO 2: PRINT AT 
yitt,x1l3" "s NEXT £: PRINT AT 21,93 

": GO TO 62 


8545 BEEP .1,-18: NEXT i 
9998 RESTORE 9@1@: LET f=@: LET g=255: FOR y= 


USF "a" TQ USR "t"+73 READ x: POKE y.x: NEXT 
Y 

GSG1S DATA £,63,127.,9,9, 252, 2549, 254, £59595959s5 
#,£,,28,254, 254,254, 254,28, f,f 

GG2G DATA 195,129 ,F.¢,F,,1297, 195, 254, 254, 252 
1999, 127,63, F 5 Fo Fs F599999895F 

9G38 DATA £,4, 28, 254, 254,254, 254, 28,56, 127,12 
7, 127 <1 27.56,444 

9G35 DATA £,252,254,9,9,63, 127,127, F,45;56,127 
, 127,127,127, 56,127,127, 63,9,9; 254,252, ¢ 

9B45 DATA 66,129,157, 165, 165,94,66, 68,68, 68,2 
4,24,68,126,9,9,198,198,198,49,48,48,49, 198 
9458 DATA 26,39,15,15, 31,62, 126, 252, 248, 248,2 
49,224, 224, 249, 249, 2948, 252,126,62,31,15,15, 39 
.23 

2868 DATA 56,128,248, 249, 248, 124, 126,63, 31,15 
015,7,7,15,15,31,635,126,124, 248, 249, 249,129,5 
6 

Pig@ RETURN 

959@ INK 4: FOR f=8 TO 7 STEP 2: PLOT S5-f,15 
-#: DRAW @,145+2*f: DRAW 145+2*¥4,0: DRAW G,-2 
*¥4-145: DRAW -2*f-145,0: NEXT Ff 

PS1@ PRINT INK 33 BRIGHT tsAT 1.65 "H"SAT 1,2 
SS "B"SAT 26,65 "8"5SAT 29,255 "0" 

9526 INK @ 
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9525 PRINT AT 4,@8;c#i3AT 4,265 5% 

9538 PRINT AT 6,85 INK 23 "POINTS"; INK @3AT 6 
»263"PQOINTS"§ INK S3AT 15,0; "ROUND"3AT 15,273 
"TIME" 

9549 PRINT AT 8,25s13AT 8, 28352 

9345 RETURN 

9550 LET yi=1é: LET xi=9: RESTORE 9569: FOR f£ 

=1 TO 4: READ y,x 

9569 DATA B,1,-1,89,8,-1,1,8 

9578 FOR e=1 TO 12: PRINT AT yl,xis"ZL"3AT yit 
L,x15"M"SAT ylt+2,x13"N"5 PAPER 23 INK 75AT yi 
-1,xisround 

9538 BEEP .96,-45 

9565 IF e=12 THEN FOR o=25 TO 35: BEEP .905, 

Oo: NEAT o: FOR o=1 TO 28: NEXT o: FOR o0=35 TO 
25 STEP -1:; BEEP .9@5,0: NEXT o 

9359S PRINT AT yi,sxi1i" "SAT yiti,xl3" "SAT yit 

Zed eA, yee cdkey e 

F660 LET yl=yity: LET xl=xit+x: NEXT e: NEXT f 
9618 RETURN 
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Motocross 


Motocross consists of two games. In the first a motorcycle races across 
the screen from left to right, continues down through several levels, 
and must leap over obstacles placed in its path. 


In the second game, Stunt-Cycle, the motorcycle leaps over a line of 
buses and must be landed on the other side without loss of control. After 
each successful leap the number of buses is increased. 


1 BORDER @: PAPER @: INK 7: CLS 
LET fhs=led: LET wr=4 
GQ SUE 9?¢69¢ 


GO SUB 3060 
BEEP .2,2¢ 
E 23674,255: POKE 23673,255: POKE 236 


Noh 


i 
Vil ht Sand & a 
¢ 
i- 
0) 


“st 
ty 
is) | 
cn 


3a PRINT AT y.x} BRIGHT 13" A" 
19@ FOR f=1 TQ s: NEXT ¢£ 
26@ LET x=x+1i IF x=31 THEN PRINT AT y,313" 
": LET x=@: LET y=y+5S: IF y=25 THEN GO Tao 2 
eae 
250 IF SCREENS (y,x+i)="" THEN GO SUB 19¢9 
27G IF IN 4915@=247 THEN GO Ta 1¢29 
3a@¢ LET s=st+it AND IN 65@22=2751)-(1 AND IN 6 
n@22=254): IF sti THEN LET s=i 
940 GO TO 3a 
1@ad IF IN 4915¢=247 THEN GO To 1599 
1820 LET c=144: FOR f=x TO 34: PRINT AT y,ef3 
ERIGHY La" "$CHRS ci LET c=c+#(c<147)-(3 AND c 
=147): BEEF .1,-3@: NEXT ¢ 
1@2G CLS : PRINT "Bad Luck! You crashed.": GQ 
TQ 9200 
15@@ PRINT AT y,xi" "SAT y-1,x+13 BRIGHT 135A 
1519 FOR #=1@ TO 15: BEEP .@2,4: NEXT # 
1529 PRINT BRIGHT L13AT y-1,x415" "SAT yy x42} 
"A": LET x=nx¢2: RETURN 
2OAG LET ti=(S65536XPEEK 23674+256KPEEK 236735+ 
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FEEK 223672) /438; LET t=(INT (ti*¥ise))/ieg 

29835 CLS 

26id PRINT AT 1,0: "Your Time Was "sti" Second 
ss.” 

2ag2e¢ IF tt<hs THEN PRINT INK 4’ "That Is A Ne 
w Fast Time! "i LET hs=t 

262° PRINT INK SS’ "The Best Time Is "ihs;" 
conds.” 

26468 GO To 9240 

34@0 FOR g=21 TQ 6 STEP -S: FRINT AT g-1,RND¥ 
28+65 INK 63°F "SAT 9G-L, RNDH2G+6;5 "£"5 FOR 4=8 

TO Zi: PRINT INK 2IAT g,f5" *2 MEXT £2: NEXT 


wy 
uy 


S39@ LET y=5! LET x=: LET s=20 

BS45¢@ RETURN 

a@@@ LET buses=5: CLS 

5919 LET y=S: LET x=@: LET s=id 

S@iaS PRINT AT @G,ililsbuses;" BUSES" 

a620 GO SUR 75ee 

s@ig FRINT AT v,xs BRIGHT 13" A* 

Sig@@ FOR f=1 TO si MEXT Ff 

S208 LET x=x+i: IF x=S1 THEN PRINT AT y, 315" 
"> LET x=@: LET y=y+i 

S258 IF SCREENS (y,x+1)="" THEN GO TQ 64698 

22G@ LET s=s+ (1 AND INKEYS="d")-¢C1 AND INKEYS 

="a")i IF sti THEN LET s=t 

S4a@ GO Ta Sdra 


6@@G PRINT AT vy,xi" "% BRIGHT 13AT y-1,x+13"A 
“: BEEP s/1@@,1 
6@29 PRINT BRIGHT 13AT y-1,x+i3" "SAT y-2,x+ 


2:"4") BEEP s/i@@,i1: NEXT 

6G@30 LET xex+2: FOR f=x TO (x+2@-s): BEEP s/t 
@@,1: PRINT BRIGHT L:AT v-2,45" A“: NEXT £ 
684g FRINT AT y-2,45" "i BRIGHT L;AT y-1i, +15 
"A"; BEEP s/1iga,1 

6G5@ IF ATTR t(y,f+1)<¢>?46 THEN GO TQ 62769 
6€6@ FOR x=f+1 TO SO: FRINT AT y-1,*3 BRIGHT 


pe g" 

6965 BEEP s/14@, (v=298)-(55 AND y=21) 

6073 IF SCREENS (y7,x+1)=" " THEN PRINT AT y- 
Laxtis" "3s LET ywevet 


6@30 NEXT x 
640285 CLS : LET buses=buses+l 
695€ GO TO EmiG 
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e202 SRINT AT y-1,f+i3" “3 LET cHi44: FOR x= 
+1 TO Sit BEEP .i,-28:3 PRINT AT y,~xi BRIGHT 1 


5° "“GCHRe cr LET cHct+ictid?)-(2 AND c=147): N 
EXT « 

621% CLA : PRINT AT @,@i"You Failed In Your 4 
ttempt At "“j;buses’ "Buses," 


6740 TF buses-ttwr THEN PRINT INE 3S? “Howeve 
fait 


ry, Your Successful Jump Over “tibuses-l5 Bu 
ses I5 A New World”? "Record!!! ' "i LET wr=buse 


?9 PRINT INK 6° "The World Record [Is "“jwr;" 


oe? 

2) 9S 6-9 STEER e=aS) POR gS0- TO: S22 ek 
AT £,93" "3 NEXT 3: NEAT £ 

PSi9s PRINT INK Gi AT 28,435 "F "ai FOR £f=1 TO bu 
S25i PRINT INk 2} BRIGHT i3"G@"s: NEXT £3: PRI 
NT IN 63 °asre" 

7aS@ RETURN 

Prag REATIRE SO@ids FOR f=uSk "a" TQ USGR "f"+? 


: READ gt POQOKE £,9: NEXT ¢ 
P81 DATA 32,62, 54,254, 152,90,251,66 
OG28 DATA 2,117,862, 92,124, 242, 23,26 
eGe0 DATA 46,231, 90.25, 127, 76,124,4 
SA4G DATA 88,232, 77,62,58, 74, 238,64 


Ba) 
a 
uo 
o 


12 
DATA 3,8,9,8,9,32,112, 248 

SFO DATA 1,3,7,15, 51,635,127 7255 

997M DATA 126,06, 126, 126,66, 126,126,356 

993A DATA 229,252,255, 255, 255,255, 255, 255,9,0 


poe 4 
126, 24@, 254,255, 255, 255,4,0,0,0,0,192, 248,25 


9398 RETURN 

PLlge LET aS= "MOTOCROSS": PRINT AT 2i,iilsaseie F 
OR +=1 TO &: FOR 3=2a TQ @ STEP -1: BEEP .@@1 
sf¥S343G> PRINT AT g,ft+iGiaBlf) SAT gti,f+ids" 
") MEXT gi NEXT £ 

Sigh FOR f=@8 TQ 3G: EEEP .@4,-26: PRINT INK 
65AT 2,5" A*is NEXT £: PRINT AT 2,315" "% 
PLi@ PRINT AT 2,85 "This Program Consists Of T 
wo Motorbike Games. ”™ 

SiZ2a PRINT INE 67 "For ""Moto-cross"", jump w 
Leaked: oniy when you reach the obstacle" 
FiGM@ PRINT INK S’ "For both programs, acceler 
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ation and deceleration are possible by hold 
ing A or D." 

e2e8 PRINT INK 4°’ "Press the key which corres 
ponds to what you want to da." 

S2iSd PRINT INK 4° "1...Moto-cross"’ INK 57 "2, 


-Stunt-cycle"’ IN Fe "S...Ekit from tre prog 


u 


ma 


= 
= 
at 


IF INREVYS="i" THEN GO TO is 
iF INREYS="D" THEN GO TO S@ce¢ 
IF INFEY$="3" THEN sTaOPr 

GO TQ F226 


40a 9 
Q 


ho oh) bom) ot 
we ud bh 
& 


Ma 
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Critical Path Analysis «sx 


Even if critical path analysis does not exactly excite you, this program 
can be used to find the longest or shortest route through a large maze. As 
dimensioned, it will handle a network of up to 50 nodes or junctions, 
each of which may have upto 5 outlets. The joining links can represent 
distance or time and the program will list all possible paths, or the longest 
path, or the one with most nodes. Loop back conditions are 
automatically rejected by the program. Draw your own network on 
paper and enter the separate link details in the DATA LINES 1000 
onwards. Then press the key sit back and watch the computer display 
the path analysis. 


i@ REM ¥CRITICAL PATH ANALYSIS @198 
3 MICHAEL BEWS for 48k Spectrum 

26 DIM a$(59,5): DIM 5b$(58,5): DIM 9%(39): 
DIM n#(39): DIM p$(3@,29): DIM p(3@)i DIM t(3 
Bg) 

21 LET K=a@ 

25 GO TQ 59a 

29 REM ¥*¥*READ NETWORK DATA 

3S@ READ e 

46 FOR x=1 TO e 

S@ READ a,b,c 

66 FOR y=1 TO 5 

708 IF bSta)ty)=" " THEN LET b# (a) (y) =CHRS 
(33+b): LET n#(a)=CHR® (CODE n#(a)+1): GO TO 
9S 

89 NEXT »y 

96 FOR y=1 TO 5 

id@ IF aS(a)(y)=" " THEN LET a$(a) (y) =CHRS 
(33+c): GO Ta 124 

1i@ NEXT y 

126 MEXT x 

125 READ at IF a¢>-1 THEN PRINT "Check sum 
error": STOP 

127? PRINT " DATA Check OK" 

13¢@ INPUT “ENTER start node "3s: LET n=s: IF 
s¢<l THEN GO TO i3¢@ 

135 PRINT : PRINT AT 26,@;3;"Enter ""-1"" to 5 
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ee ALL possible paths.” 
14@ INPUT "finish node "$f: IF #38 THEN LET 
né(f)=" " 
142 IF f>e OR f=8 GR f=s GR #<-1 THEN GO TO 
149 
143 PRINT AT 29,9; " 


“SAT 29,53" 
WAIT PLEASE” 
145 LET p=1: LET he=ne 
15@ LET p#(p)(1)=CHR® (33+n) 
169 IF n#(n)=" " THEN GO TO 3e¢ 
165 LET g#(n)="1" 
178 LET h=CODE h#(n)-32 
175 IF gS(CODE b(n) (h)-33)<>" " THEN GO Ta 
43g 
1@0 FOR x=1 TO LEN pS (p): IF pS(p)(x)=" " TH 


EN LET p#(p) (x) =bS(n) Ch) Go TQ 185 

162 NEXT x 

165 LET t(n)=p(p): LET p(p)=p(p)+CODE (atin) 
(h))-33 

199 LET n=CQODE bS(n) (h)-33 

260g GO TQ 1698 

399 LET v=1: LET g=¢ 

3@1 FOR x=LEN p#(p) TO 1 STEP -1i 

205 IF pS(p)(x)=" " THEN GO TQ 329 

346 LET gS(CODE ps(p)(x)-33)=" * 

397 IF g=8 AND p#(p) (x) <>CHRS (+33) AND #79 
THEN LET v=F@ 

31g LET g=1: IF CODE hs(CODE (psp) (x) )-33)> 
33 THEN GQ TO 49¢ 


2? 
25 IF v=@ THEN LET pS#(p)=" 
“s CET p=p=t 
33@G PRINT AT 8, 9;QS;AT 8,93: LET j=0: LET u= 
@: LET r=d: LET tp=9: FOR x=1 TO p 


335 FOR y=1 Ta LEN p#(x): IF p#(x)(y)=" " TH 
EN GQ Ta 359 
34@ PRINT CODE pS(x) (y)-335"_."5i NEXT y 


359 PRINT " * "$p(x): IF p(x)>j THEN LET j= 
p(x): LET k=x 

355 LET tp=tpti: IF y-1>?r THEN LET r=y-ii L 
ET u=x 

3696 NEXT x 

362 LET #S=STR® f: IF £<9 THEN LET f%="end" 


36 Critical Path Analysis 


365 PRINT " se 
: PRINT "No. of paths "353" to "3f#3" = "ftp 
366 PRINT : PRINT “Path No. "fu3" has most n 
odes. ("5rg5")" 

368 PRINT "Path No. "$k3" is longest. ("5j5") 
376 STOP 


4q@ LET n=CODE p#(p) (x)-33: LET h(n) =CHRS ( 
CODE hS(n)-1): LET gqt=p#(p): LET p=ptv: LET p 
$(p)¢ TO x)=ps(p-v)( TO x): LET pS(p)(x+1 TO 
)=" ":; LET p(p 
y=t Cn) 

495 FOR y=xt+i TO LEN g#: LET z=CODE q#(y)-33 
> IF z<1i THEN GO TQ 16% 

4i@ LET h#(z)=n$(z) 

415 NEXT y 

429 GO TO 164 

4396 PRINT "Loop-back error.": PRINT : FOR 1= 
1 TQ LEN pS(p)-1i: IF CODE p#(p)(1)-33<1 THEN 
Ga TQ 45¢ 


449 PRINT CODE p#(p)(1)-33s"-"§i NEXT 1 

$390 PRINT CQDE b(n) (h)-33: PRINT : PRINT "P 
lease correct data error.": PRINT : GG TG 338 
499 STOP — 

S@@ BORDER S: PAPER 5S: INK 1 

S@3 LET Of=" ": FOR X=1 TQ Si: Lb 


ET OS=0%+08: NEXT X 

S198 CLS : PRINT INVERSE is "CRITICAL PATH N 
ETWORK ANALYSIS " INVERSE @ 

S28 INK @: PRINT : PRINT “CRITICAL PATH NETW 
ORES CAN BE APPLIED WHEREVER SEVERAL INTER- 


DEPENDENT ACTIVITIES NEED TO BE CARRIED G 
UT IN A SPECIFIED SEQUENCE TO ACHIEVE A FIN 
AL GCQAL” 

S3@ PRINT : PRINT “THE GGAL MIGHT BE THE COM 
PLETION QF A LARGE PROJECT OR, MORE SIMPLY 
s ARRIVAL AT A DISTANT METRO STATION BY TH 

SHORTEST POSSIBLE ROUTE" 


544 PRINT ©: PRINT “THIS PROGRAM IS SUITABLE 
FOR USEIN EITHER CASE."3 

55¢ PRINT “" A DEMONSTRATIGN NETWORK IS SHOWN 

AND THE PROGRAM WILL TRACE GUT ALL POSSIBLE 

PATHS THROUGH THE NETWORK, INDICATIN 

G THE LONGEST AND SHORTEST ROUTES." 


Critical Path Analysis 37 


56a PRINT 3 INVERSE L5AT 21,75 "FRESS <ENTER> 
"3; INVERSE @ 

378 INPUT x 

60¢ PAPER 7? 
Be oOe 

618 DRAW 169,84: DRAW 42,-16 

626 PLOT 11,131: DRAW 48,16: DRAW 174,94 

638 PLOT 11,131: DRAW 72,9: DRAW 24,16: DRAW 

112,¢ 

64@ PLOT 11,131: DRAW 32,-14: DRAW 84,4: DRA 
W 32,198 

65¢@ PLOT 68,147: DRAW 24,16 

668 PLOT 132,164: DRAW 16,-16: DRAW 8,-16: D 
RAW 8-16 

678 DRAW 72,32: REM DRAW -49,4 

689 PLOT 296,132: DRAW -48,¢4 

788 PRINT INVERSE 15AT 1,45 "4"3AT 1,195 "5"$ 
AT 1,165 "6"5AT 1,235 "11"5 

7i@ PRINT INVERSE 15AT S,15 "1"3AT 3,79 "2"5A 
T S,13; "SS AT 3,185 97 "3AT 3,285 "125 

7268 PRINT INVERSE 1j5AT 5,195 "E"3S AT 5,245 "19 
"SAT 7,285 "9" 

738 PRINT AT 2,23 "4"5AT 1,75 "1"G3AT 1,135 "15 
AT Wt Ss Ve SAT be 265 °S" 5 

748 PRINT AT 3,4: "2"5AT 3,185 "3"3AT 3,155 "5" 
GAT Sy,225"11"§5 AT S,65"4"5 AT 5,215 "S3"5 AT 4,273 
"S"GAT 6,233 "2" 

745 PRINT AT 2,83 "S"3AT 2,163 "2" 

458 PRINT AT 4,183 "@"GSAT GyAFE"S"GAT G,L1i3 "1 
1" 

898 PRINT AT 8,@; "Nodes "5; INVERSE 1i3"i"3; IN 
VERSE @3" represent the commence- ment of act 
ivities, (represented by the joining lines). 
The linelengths might represent a number of d 
aysS or weeks required to complete an activi 
soe ea 

Sig PRINT : PRINT “ Activities can progress 
in one direction only and the program will r 
eject a network having a loop-back condition 

3 

828 PRINT " Each activity progresses in the 
direction entered in the program DATA statem 
ents. " 

esa PRINT AT 21,13; INVERSE 1; "PRESS <ENTER> 


$ 
> INK @: CLS : PLOT 11,131: DRAW 


38 Critical Path Analysis 


"53 INVERSE @ 

848 INPUT xX 

S5@ PRINT AT 8,93Q$3AT 21,193" "5 

669 PRINT AT 9,63"The zero (@) length betwee 
n node "; INVERSE 13"7" 3 INVERSE @3" and "3 I 
NVERSE 13 "3"§ INVERSE @3" indicates the exist 
ence of a restraint which prevents activitie 
s at node "j INVERSE 13"8"3 INVERSE @3" from 
commencing until activities "3 INVERSE 135"3"$ 
INVERSE @j3"to"3 INVERSE 13"7"3 INVERSE @3 
876 PRINT " and "3 INVERSE 15”"6"3 INVERSE @ 
3"to"$3 INVERSE 13"7"3 INVERSE @3" are complet 
e," 

888 PRINT : PRINT : PRINT 3 INVERSE 13"PRESS 
<ENTERD"$ INVERSE @3 

899 INPUT X$ 

996 GO Ta 36 
1dg@ REM ¥X¥FLOW CHART DATAX##* 
1965 REM *¥number of connecting 


lines 
1@1@ DATA 18 
1@iS REM ¥X¥start node, finish no 


de, line length 
1g@S59 DATA 1,4,4 


1G6@ DATA 1,2,2 
197 DATA 43,4 
198@ DATA 1,8,11 
1698 DATA 2,3,1 
119@ DATA 2,5,3 
1118 DATA 3,?7,5 
112 DATA 4,5,1 
1138 DATA 5,6,1 
1146 DATA 6,7,2 
115@ DATA 6,11,7 
116@ DATA 7,8,9 
1178 DATA 7,12,11 
1188 DATA 8,9,3 


1198 DATA 8,19,3 

1269 DATA 9,16,2 

121@ DATA 19,12,9 
1220 DATA 14, 12.3 
123@ DATA -1 
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Chomper 


This is an interesting variation of a game we caught sight of in an arcade a 
while back. It’s got amaze, power pills, a ghost and things that go chomp 
in the night. Enjoy! 


1 BORDER @: PAPER @: INK 7: CLS 
2 REM @ P.STANLEY 
4 GO SUB 994d 
5 LET hs=¢ 
1@ LET m=@: LET sc=@: LET 1i=3 
28 GO SUB 899+m 
19@ IF INKEY#="8" THEN IF ATTR (y,xt1)<>4 T 
HEN LET x=xti: LET p#="f#" 
11@ IF INKEY$="5" THEN IF ATTR (y.x-1)<>4 T 
HEN LET x=x-i: LET p#="o" 
12@ IF INKEY#="6" THEN IF ATTR (yt1,x)io4d T 
HEN LET y=yti: LET ps="-" 
13@ IF INKEY#="7" THEN IF ATTR (y~-1,x)<34 T 
HEN LET y=y-1: LET p#="@" 
150 IF SCREENS (y,x)="%" THEN BEEP .2,298: L 
ET r=1: BORDER 2: LET df=-df: LET dgq=-dg 
189 IF SCREENS (y,x)="." THEN PRINT AT yi,x 
1s"a":s LET sc=seti: LET ci=citii PRINT AT @,6 
35c: BEEP .995,36: IF ci=c THEN GO TQ 78988 
19@ IF y=11 THEN LET x=x+(3@ AND x=1)-(39 A 
ND x=31) 
192 LET p=x: LET gq=y: IF er THEN LET p=sSi-x: 
LET g=21-y: LET r=r¢+i: IF r=5@ THEN BEEP .2 
»7i1@: BORDER @: LET r=@ 
20@ PRINT AT yi,xi13" "3 INK G35AT y,x5p% 
219 LET yiz=y: LET xi=x 
4@@ IF y=* AND x=g THEN GO TO 69@@+(58@ AND 
r) 
s@@ LET #1=f: LET gi=g: LET g=gtdgq: LET f=f+t 
df 
520 IF ATTR (#,9)=4 THEN GO TO 14689 
4@@ IF #1<>q AND NOT df THEN IF ATTR (f1+(f 
1<=q)-(4#>q),91)¢34 THEN GO TO 1@1¢ 
61@ IF gi<¢>p AND NOT dg THEN IF ATTR (f1,91 
+(qi<=p)-(gl>p))<>4 THEN GO TO 1289 
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8@@ IF #=11 THEN LET g=g+(3@ AND g=1)-(38 A 
ND g=31) 

818 PRINT OVER 15AT f1, 9135 "AR"SAT £,95"R" 
85@ IF y=f AND x=q THEN GO To 69@@@+(59@ AND 
r) 

999 GO TO 144 

lg@a@ IF NOT dg THEN GO TQ 12¢@¢ * 
i61@ IF NOT df THEN LET df#=(¥1<=q)-(f1>q)i L 
ET dg=@: LET g=qi: LET f=fitdf 

ig2a IF ATTR (f,9)=4 THEN LET’ df=-df: LET f= 
#iltdf 

1g3@ GO Ta 8d 

1208 LET dg=(gi<=p)-(gi>p): LET df=: LET f= 
1: LET g=gltdqg 

121@ IF ATTR (#,9)=4 THEN LET dg=-dg: LET g= 
glitdg 

1226 GO Ta eda 

69@6@ FOR f=1 TO 15 

6918 PRINT AT y,x3 "WN": BEEP .95,¢ 

6829 PRINT AT y,x5"P"> BEEP .@5,+.25 

683G PRINT AT y,x5"O": BEEP .95,+.5 

6942 PRINT AT yy, x3 "@": BEEP .@5,£+.75 

64352 NEXT £ 

64698 FOR f=1 TO SG: NEXT F 
6965 PRINT AT y,x5" "3 LET li=li-1: IF 1158 T 
HEN GO SUB 8626@: GO To Iiga@ 

68728 CLS : PRINT AT 7,@3"You scored "jsc3" po 
ints.” 

69898 IF sc>hs THEN LET hs=sc: PRINT AT 198,93 
"Well done that’s the new best score!!! ": G 
Oo TQ é6iga 

6299 PRINT AT 18,43 "The high-score is "$hs3". 
6164 PRINT AT 13,65"Press any key to play aga 
in.": PAUSE @: CLS : Go Ta 19 

6569 FOR f=1 TO Si FOR g=2 Ta 7: PRINT INK g 
5AT y,xj"S"s BEEP .@1,f¥5+g: NEXT g: NEXT fF 
6559 BORDER @: LET r= 

6698 LET sc=sct+5@: PRINT AT @,635c 

6658 LET f=16: LET g=16: LET gi=g: LET fi=f 
66690 LET dg=-1: LET df=@: PRINT OVER 13 INK 
SIAT £,95 "A" 

6670 GO Ta ia 

7660 BORDER @: CLS : PRINT AT 3,953" @ a 6G 
EEEEE OU a a ag #6€«SG a 
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a SRE 8 Gane a a | 
ae G a a a G S088 
SEEEEE 68S" 
7@1@ FRINT AT 11,03" MG Saas a a 
SEERan Of a a a G8 a é68 a 
a 8 S 8 0 & eee a a a a &@ 
ae 6€UC tt Ltt a G S80888" 
70826 FOR f=-48 TO 40 STEP 4: BEEP .@5,f: NEXT 


7838 FOR f=1 TO 158: NEXT fF 

794@ CLS : LET m=m+1@: IF m=4@ THEN LET m=¢ 
785@ GQ TO 208 

eae PRINT AT 1,45 "HAAAAAAAAAAAAAAAAAAAAAAAT 


B B B FALAE 
C FALAE C FALAE B B B B B 
B B BeBceBe c RC ERC B" 
88@1 PRINT " BBBBBBCBBBBBB 
BROODBRDBDABDDBB BB B 
B B BB B GAAAAALT FAKAE GAAAAATL 
B FAAL GAAE" 
6gg2 PRINT " FAAAAAAAAAAAAAARAAAAAE 
FAAS HAAE B FAAALAAA 
£ GC FAAALAAAE B B B B B 
B BFAE BCC DC CC B FAE B" 
983 PRINT " B BBB BBB B 
BC FAI D GAAAI D GAE C B BB 
BB B GAAAAAAAAAAAAAAAAAAAL 
B B B GAAA 


AAAAAAARAAAAAAAARAAAAAL" 
egd4 GO TO S19g 
@G19 PRINT AT 1,45 "HAAAAAAAAAAAAAAAARAAAAAAAYT 


B B B HAAAT 
¢¢ € € © HAAAT B BB BBBDBABB 
BB BOCBBB BBBCD B" 
@@1il PRINT " B BBBBCBBBB B 
BFAIDBDBODBD GAE B B B 
B B B B FAAAAAT FAKAE GAAAAAE 
B FAATL GAAE* 
812 PRINT ” FAE FAAAE C FAAAE FAE 
FAAS B HAAE B FAAAAAT 
C DC HAAAAAE B B BB BB 
B BFE FJ B GAAAT B HE FE B B 
BB BB B B FAE B D HAAAY D 
B FAE B" 


8813 PRINT " B B B B B B 
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B FAAAL FAI € GAE GAAAE B B 
8 B GAAAAAAAAAAAK AAAAAAAAAA 
Ali" 
S914 GQ TO Sigg 
8926 PRINT AT 1,45 "HAAAAAAAAAAAAAAAAAAAAAAAT 
B B B HAAE 
FAAAE FAAAE FAAT B BB 
BB BB HE FAAAE FAAAE FJ B B" 
6@21i PRINT " BODEB BOB 
B D FE FE FE FE 2D B BC 
cB B GAAE FAAAE FAAAE FAATL 
B FAAL GAAE" 
8g22 PRINT " FAAE FAAAE FAAAE FAAE 
FAAT HARE B HAAE FAA 
AE FAAAE FAAT B BD D 
B B C FE FE FE FE € BR" 
89235 PRINT " BCsB BCRB 
B GE FAAAE FAAAE FI BB BB 
BB B GAAE FAAAE FAAAE FAAT 
B B B GAAA 
AAAAAAAARAAAAAAAAAAAAL" 
8d24 GO TA Sida 
E938 PRINT AT 1,45 "HAAAAAAAAAAAAAAAAAAAAAAAT 


ty 


B B BC FT 
HAAAT HAAE B BB B B B B 
B BB B ra D B B" 
8@31 PRINT " BBRBFI B B 
BB HAAAT B B BB 
B B & B BOD D D GAAE 
B FAAL GAAL" 
8932 PRINT " FAAE FE FAAAE FE FAAE 
FAAS HAAE Bce¢eee 
HAAAS HE Cc B BBBBBAB BB B 
B BBOODBD DBE B B" 
8933 PRINT " BB B BODCBB 
BRB B HAAAT B DBB BB B 
B BB BB BOD DoD 2D Fi 
B B B GAAA 
AAAARAAAAAAAAAAAAAAAAL" 
8199 PRINT AT 2,55 INK Si"¥"5AT 2,275 "¥#"5AT 2 
BeSI"¥"GAT 2H,275 "%" 


8195 LET c1=@: LET c=5: FOR #=2 TO 20: FOR g= 
S To 27 

8119 IF SCREENS (4,9)=" " THEN PRINT AT #,493 
"J": LET cecti 
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@12@ NEXT gi NEXT f 

619mg PRINT AT i1,t5" ..."3AT 11,205"... " 
82q@ LET x=16:s LET y=5; LET yi=y: LET xi=xi L 
ET r=98: LET p$="A" 

S218 LET f=16: LET g=x: LET gli=g: LET fl=f 
8226 LET dg=-1: LET df=@: PRINT OVER 13 INK 
SiAT F495 "R" 

8258 FRINT AT 6,63 "Score: "$AT @,175 "High-scor 
e:"shs 

8268 PRINT AT @, 115" "SAT @,1135 (¢"N" AND 1i> 
1)+¢" AW" AND 1152) 

8999 RETURN 

omega RESTORE : FOR f=USR "a" TO USR "S"+7: RE 
AD g: POKE £,9: NEXT Ff 

PO1SG DATA 6,255,06,8,8,8,255, 8, 66, 66,66, 66,466, 
66,66, 46 

9926 DATA 6,24, 36, 66, 66,66, 66, 66, 665 66, 66,66, 
66, 36,249,8 

9G368 DATA 6,248,4,2,2,4,298,9,90,31,32,64,64,3 
2,31,98 

9449 DATA 66,65,649,32, 32,294,759, 06,7529, 32,32, 
64,65,66 

9OG35G DATA 66,136,2,4,49,24,224,9,8, 224, 24,4,4, 
2,138,646 

994G DATA 66,129,9,9,8,8,255,9,9,255,9,9,9,06, 
129,66 

96798 DATA 69,126,255, 255, 255, 255,126,68,69,12 
6,296, 224,224, 249,126,608 

9S6E DATA 68,126,15,7,7,15,126,68,668,126,255, 
231,195,195 ,66,8,4,66,195,195, 231,255, 126,68 
99a DATA 66,126,219, 241,255,255, 255,170,68,24 
2,133, 229,21,1949,98,9 

@3S1G INK 46: PLOT 152,173: DRAW 7,-7: DRAW 8,8 
e329 PLOT 232,173: DRAW 15,-35 

93525 PRINT ’'7" & Pauil Stanley" 
93539 INK 7:3 PRINT *’"A standard pacman-type g 
ame, ", "complete with power-pills, whichwhen 
eaten give you the chance ","to eat the ghost 


" 
. 


eS4e@ PRINT INK S’’"Move with the cursor keys 
3-8." 

e35@ PRINT INK 4’’ "Press any key to play..." 
> PAUSE @: CLS 

969 RETURN 
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Battleships 


This is the traditional game of Battleships to be played against the 
computer. For anyone who hasn’t come across the game before (does 
such a creature exist?), there are full instructions included in the listing. 
The winner is the first to destroy all six enemy ships, and there are levels 
of difficulty (1 or 2) which must be entered before battle can commence. 


1 QVER @: BORDER 7: FPAPER 7: INK @: CLS 
2 REM @ PAUL STANLEY 
S POKE 23658,9 
i@ GO SUB 9S9gag 
15 GO SUB 7EegE 
2@ GO SUB Saag 
3@ LET @=16: LET FH=18 
1@@0 PRINT OVER 1i3;AT @,P3"+" 
1i@ PRINT AT 18,83 PAPER 43" YOUR 
MOVE z: 
126 PRINT AT 28,43 INK 33 "Move your cross ab 
out with 5-8. Fire by pressing 9." 
1S3@ PRINT OVER 1isAT @,PFP3"+" 
14@ IF INKEY$="6" THEN LET @=@+1: IF @=17 T 
HEN LET @=5 
150 IF INKEYS="7" THEN LET @=@-1: IF @=4 TH 
EN LET @=16 
166 IF INKEY$#="6" THEN LET P=P+1: IF FP=38 T 
HEN LET P=18 
I?ve IF INKEY$="5" THEN LET P=P-1: IF P=1? T 
HEN LET P=29 
18@ IF INKEY$="9" THEN GO TO 29¢ 
19@ PRINT OVER 13 INK S5AT G@,P3 "+" 
19S BEEP .46,-18: GO TO 1368 
298 BEEP .@5,3¢4: PRINT AT @,F3 QVER 135 "+" 
21@ FOR F=1 TO 6 
228 IF H(F)=@ AND G=F(F) THEN IF P=G(F) OR 
P=G(F)+1 THEN GO TQ 259 
2358 NEXT F 
24¢ GO TO 24a 
25@ LET H(F)=1: FOR G=? TG 9 STEP -1i: PRINT 
INK 93AT F(F),G(F) £"RS* 
268 FQR I=@ To Gxs Gti: BEEP .@6,1I: NEX 
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TT 
265 NEXT G . 
77278 LET scei=seit+i: IF sci=é6 THEN GO TQ 2969 
30@ PRINT AT 18,93 PAPER 45" MY 
MOVE "3 PAPER 75AT 28,95". 


395 LET g=(INT (RND¥12/5C))*¥SC+1: LET #=INT 
(RND¥12) +1 
32@ IF c#(F,G)="X" THEN GO TQ 385 


33@ LET c#(F,G)="X" 
35@ LET y=f+4: LET x=9+3 

349 GO SUB 1966 

37@ FOR i=1 Ta 6 

376 IF Y=Y¥(I) THEN IF X=X(I) QR X=X(I)+1 TH 


EN GO TO 4aa 
385 NEXT i 

39a GO TO 19¢ 

496 FOR o=? TO @ STEP -1: PRINT AT yCi),x(i) 
3; INK 03 "RS" 

42@ FOR 1=@ TO oX¥8 STEP oti: BEEP .96,1: NEX 
1 

425 NEXT #0 

43@ LET c#(¥(i)-4,XCi)-3)="K"2 LET cB®(Y¥Ci)-4 
wXCi)-2)="x" 

449 LET SC2=SC2+1: IF SC2=6 THEN GO TO 2199 
45@ GO TO 199 

199@ OVER 1: PRINT INK S3AT y-1,x-45 "Hl BGe 
@ "SAT y¥,x-43 "MMO SAT yt+i,x-45 "i Be 
1965 BEEP .@@8,11 

1919 PRINT AT y-1,x-45 "NM MMM "GAT y.x-435 "HN 
SEGEEEEE'S AT y+i.x-43 "0 Ean" 

1@2@ PRINT INK S$AT y-1,x-33"0 EMM "SAT y.x 
-33 "MM MMWE "SAT yt+1,x-35" ‘ 

1925 BEEP .985,9 

193G PRINT AT y-1,x-33 "HE MMM "SAT y,x-3; "M8 
MMME "SAT yt+i,x-35"--- . 


194@ PRINT INK S$AT y-Lyx-Be eee ANGAT ¥ax- 
33" 8 8B" 
1945 BEEP 89,7 

1@5@ PRINT AT y-1,x-33" "SAT y,x-33" 2 OE 
| fay in 


1969 PRINT INK S3AT y,x-23"BCED " 
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1965 BEEP .995,5 
197G PRINT AT y.x-23"MCED " 

1@8G PRINT INK SjAT y,x~-13"£FG" 

1985 BEEP .1,4 

199@ PRINT AT y,x-13"£F6" 

119@ PRINT INK S3AT y,x-13 "HZ" 

1195 BEEP .195,2 

111@ PRINT AT y,x-13"#z" 

1126 PRINT INK SiAT y,x3 "7" 

1125 BEEP .11,@ 

1139 PRINT AT y,xs 7" 

1135 OVER @ 

114@ RETURN 

2G9@ CLS : PRINT AT 4,93 INK 33"WELL DONE ! Y 
GU DESTROYED ALL THE COMPUTER’S FLEET !!" 
295@ GO Ta 2298 

219@ CLS : PRINT AT 4,9; INK 3;"BAD LUCK ! TH 
E COMPUTER SUNK ALL YOUR SHIPS !!" 

220G PRINT AT 8,@; "PRESS ANY KEY TO PLAY AGAI 
Aataseat 

2308 IF INKEYS="" THEN GO TO 2389 

2464 CLS : GO Ta 2a 

3265 FOR I=1 TO 6: IF Y=Y¥(I) THEN IF X=X(I) 
THEN GO TO 9219 

7893 FOR Y=29 TQ 4 STEP -4: LET X=27-Y: GO SU 
B 19@@: NEXT ¥ 


~798G85 LET AS="BATTLESHIPS a an) 
swe, 2OIG PRINT AT 2,93: FOR W=1 TO_LS: OR G=i Ta 

13: FRINT PAPER INK rupea(as(G)s1 BEEP el 
.GtFX3: NEXT Gt: NEXT F Re 

7829 PRINT AT 4,435" " 

7859 PRINT PAPER 4°" @ PAUL STAN 

Lb oR OO + 

7188 PRINT ’'’"Play the computer at battleship 


Ss" 
711@ PRINT INK 4’° "The winner is the first t 
Oo destroy all six enemy ships." 

“% 7128 PRINT INK 3’? "Full instructions are giv 
en aS you proceed.” ; 
71398 PRINT PAPER 4’’ "PRESS ANY KEY TO START 


714@ IF INKEY#="" THEN GO To 714g 
71i5@ CLS : RETURN cont 
ae 


( @ 
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e@@@ INPUT "ENTER SKILL LEVEL (1-EASY OR 2 

-HARD) "FSC 

@9@5 IF SC<>2 AND SC<>i THEN GO TO 8ag8 

8@1@ FOR #=5 Ta 16: PRINT AT £45 "KKKAKKKRKAR 

£  KKKKKKKKKKKL "2 NEXT a 

8@25 PRINT 9.8; PAPER 23 INK 73;"B A T T 
Lo oE S$ H I Pg" 

G39 PLOT 32,135: DRAW 95,g 

8648 PLOT 144,135: DRAW 95,9 

BG5@ FOR f=1 TO 12: PRINT AT £44, 23CHR® (64+F 

): NEXT £ 

agéa FOR f=1 TQ 9: PRINT INK 23AT 3,433: N 

EXT f ; 

8670 PRINT INK 23AT 3,133 "0AQ" 


SGSEG PRINT AT 1,983 PAPER 535" YOUR SHIPS 

MY SHIPS si 
S1@@ PRINT INK S3s3AT 18,43 "You can place 6 sh 
ips by typing ""D4"" (for example). Then pres 
s ENTER." 


6200 DIM a®(3): DIM Y(é): DIM X(6)5 DIM H(4) 
8246 FOR f=i TO 6 

82ig@ INPUT as 

8229 IF a$(i)<"A" OR aS(1)>"L" THEN GO TO 82 
1d 

8238 LET y=CODE a%(i)-69 

62590 LET x=VAL a®(2 TQ )+3 

8269 IF x<4 GR x>i4 THEN GO TQ 82198 

@265 FOR I=i1 TO 6: IF Y=Y¢(I) THEN IF x=xX(I)- 
1 OR M=X(I) GR X=X(1I)+i THEN GO TQ 8219 
8278 NEXT I 

828@ PRINT OVER L3AT vyx3 "MN" 


K% e299 LET Y(F)=¥: LET X(F) =X 


8398 BEEP .94,18 

B3ia@ NEXT Ff 

649@ PRINT AT 18,903" 
a 


eng@ DIM F(é6): DIM Glo) 
@51@ FOR F=i TQ 6 
@o6i@ LET Y=INT (RND¥12)4+5: LET X=INT (RND¥1L1) 


8626 FOR G=i TQ 6 
639 IF Y=F(G) THEN IF X=G(G) GR X=G(G) +i OR 
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X=G(G)-1 THEN GO TQ 861g 
84640 NEXT G 
e630 LET FCF)=¥: LET G(F)=x 
8788 NEXT F 
87268 DIM CH$(12,12) 
3740 LET sci=@: LET sc2=9 
8868 RETURN 
9403 FOR yv=USR "A" TO USR "S"4+?5 READ x: FOKE 
yaext NEXT y : 
SO81s DATA 6,6,6,8, 224,248, 252, 254, 255, 255, 255 
+255, 254,252, 248, 224 
9828 DATA 31,351,351, 255, 255,31,31, 31,224, 248,2 
48,248, 248,248, 249,224 
9O3B DATA 6,63, 63,63, 63,63.63,8,8,63,63,255,2 
535,63,63,9 
9A4S DATA B, 224, 248, 248, 248, 248, 224, 8,8, 8,48, 
63,63,69,8,8 
Xeesa DATA @,G,252, 254,254, 252,8,8,8,8,8,222,2 
55,222,8,o 
9@68 DATA 128,128,128,128,128,128,128,255,129 
1129,129,129,129,129,129, 255 
9B7A DATA B,2,34,59, 63,255, 127,8,8,8,32,48,12 
@,126,124,6 
POEG DATA 6,38,41,41,41,41,38,89,8,26, 206,208,248 
1 285 28,8, GB, 75,82, 68, 72,868,948 
9G9S DATA 126,128,208, 164, 254, 231,255, 255,128 
123,136,151, 2690,174, 252,255 
9999 RETURN 
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Tanx 


Tanx isa two player game in which two guns are placed on either side of a 
range of randomly generated hills. Each player takes turns in attempting 
to hit the gun on the other side by entering the angle and velocity of fire. 
The winner is the player with the highest score after a total of seven hits 
have been made. Your best chance of success is to use the smallest 
possible angle of elevation for a given velocity and, at higher speeds, it 
may be possible to fire through one of the hills. 


REM ------- TAN XK ------- 

REM --- @ PAUL STANLEY --- 

RANDOMIZE 

BORDER @: INK 7: PAPER @: CLS 

GO SUB 7896 

LET sci=@: LET sc2=scl 

GO SUB Sade 

LET c=: GO SUB Seda 

IF RND>.S THEN LET c=cti: GO SUB 78¢ 
GO SUB 194¢ 

LET c=ctl 

IF c=8 THEN CLS : GQ TO 398 

GO SUB 769 

LET c=cti 

IF c=8 THEN CLS : GO TO 39d 

5¢@ GO TQ 440 

1@@ PRINT FLASH 1;AT 21,123 "PLAYER 1": INPU 


{fd bh} = RH 


ahaQun®une 


tA 


ALD 
ane 


hA SL 
Oo N 


T "ENTER ELEVATION (@ TO 9@) "Fa 
11@ IF a>9@ QR a<@ THEN GO TO 196 
115 INPUT "ENTER VELOCITY (2 TO 1) "$V 


12@ IF v¢<2 GR v+1G@ THEN GO TO 115 

121 LET si=fil 

1294 LET oi1=f1 

1360 LET max=190+3%kv 

148 LET e=a/1G 

146 FOR gq=8 TO 255 STEP v 

175 IF s1i>@ THEN IF s1<175 THEN IF g>19 TH 
EN IF POINT (qg,51)=1 THEN LET k=g: BEEP .2, 
@: BEEP .2,-15: GO TQ 289 

17? IF si>@ THEN IF si¢<i7S THEN PLOT qg,si1 

16@ LET si=si+(e AND qimax)-(e AND g>=max) 
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iS@ LET e=e-(e/8 AND 9<max)+(e/4 AND g>=max) 
191 NEXT 9g 

195 LET k=255 

28@ LET si=21.5-s1/8: IF (INT si=q2 AND k>24 
7) GR ATTR (q2,31)=71 THEN GO TO I199a 

205 LET e=a/id: FOR g=8 TA 255 STEP v 

216 IF g=k THEN RETURN 

228 IF 01°@ THEN IF o01<¢175 THEN PLOT OQVER 
13g.,o01 

23@ LET ol=ol+te AND gtmax)-(e AND g>=max) 
249@ LET e=e-(e/8 AND g<max)+(e/4 AND g>=max) 
258 NEXT 9g 

268 RETURN 

9488 IF c=9 THEN CLS : GO TO 34 

7OA PRINT FLASH 15AT 21,123 "PLAYER 2": INPU 


T "ENTER ELEVATION (@ TO 9@) "3a 
7i@ IF a+9G AR a<@ THEN GO TO 79¢ 
Fis INPUT "ENTER VELOCITY (2 TO 1@) "Sv 


720 IF vé2 OR vrisa THEN GO TO 715 

P21 LET si=f2 

724 LET ol=f2 

739 LET max=155-S¥v 

749 LET e=a/1ia 

768 FOR g=247 TO @ STEP -v 

775 IF sio@ THEN IF si<i75 THEN IF 9<239 T 
HEN IF POINT (9,51)=1 THEN LET k=g: BEEP .2 
59: BEEP .2,-15: GO TQ 8a@¢g 

777 IF si+@ THEN IF si<i?5 THEN PLOT g,sl 
789 LET si=sit(e AND g>max)-(e AND g<=max) 
798 LET e=e-(e/8 AND g>max)+(e/4 AND g<=max) 
791 NEXT 9g 

795 LET k=@ 

899 LET si=21.5-si/8: IF (INT si=qi AND k<8) 
OR ATTR (q1,@)=71 THEN GO TO 2980 

305 LET e=a/1id: FOR g=247 TQ @ STEP -v 

Eig IF g=k THEN RETURN 

828 IF o1>@ THEN IF o1¢175 THEN PLOT OVER 
159,01 

83a LET ol=olt(e AND g>max)-(e AND 9g<=max) 
840 LET e=e-(e/S AND g>max)+(e/4 AND g<=max) 
85@ NEXT g 

866 RETURN 

19@9 PRINT AT g2,31;" " 

igi@ FOR f=1 TO 3@: BEEP .@@2,RND¥25: FLOT 25 
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S-RND¥20, (21t-q2)¥S+RND¥1L15: NEXT fF 

1930 LET sct=sci+i 

1e4@ GQ Ta 2599 

256@ PRINT AT qi,@i"* "“ 

261g FOR f=1 TO 1@@: BEEP .@@2,RND¥25: PLOT @ 
tRND¥20, (21-qGl)¥S+RND¥15: NEXT Ff 

2830 LET sce=sc2t+l 

2244 GQ Ta 250@ 

2ie@e@ CLS : PRINT AT 18,5; "PLAYER 1 HAS "$ssct3 
" POINT"’$ ("S" AND scl<?1)5AT 13,53 "PLAYER 2 H 


AS "“s3sc23" POINT"; ¢("S" AND sc2<>1) 

2510 IF sci+se2=7 THEN PRINT AT 16,83 FLASH 
ts"G AM FE QV E R"§ FLASH SjAT 19,235 "PRESS 
ANY KEY TO PLAY AGAIN": PAUSE @: CLS : LET sc 
1l=G: LET se2=sci: GA TA 36 

252d PAUSE 20@: CLS : GO TO 3S¢@ 

799 LET qi=@: LET q2=16: LET e=21: LET v=S1: 


FOR f=21 Ta 1 STEP -1 
7Feig PRINT INK 43;AT f,qg13"T"FAT £,q23 INK 55 
"A'S INK 65AT f,635 "N"3 INK 2ZSAT Fag "XX" 
7829 BEEP .G3,f 
7925 IF #>1 THEN PRINT AT f,qi5" "$3AT £,q235" 
"GSAT #£,035" "SAT Favs" " 
7OS8 LET qil=qit.d6: LET q2=q2+.2: LET e=e-.25: 
LET v=Hv-.65 
70468 NEXT F¥ 
7@38 PRINT "The 2 players take it in turn toe 
nter the angle and velocity at which they wan 
t to fire to try and hit their opponent.” 
786A PRINT “The shells must be fired over t 
he hills but if you are lucky your shell may 
be able to go through a hill (particular! 
y at the higher speeds.)" 
78790 PRINT “The winner is the player who hash 
it his opponent the most after a total of 7 h 
its have been made" 


7075 PRINT "To stand the best chance of h 
itting your opponent try to use the smalle 
st possible angle of elevation." 

7877 PRINT "The flashing caption at the b 


ottom of the screen indicates whose go it is 


" 
. 


78289 PRINT “PRESS ANY KEY TQ START" 
7899 PAUSE @: CLS : RETURN 


52 Tanx 


6g9G LET gq=1ie-RND*13 
@gig FOR f=2 TO 29 


@@2@ FOR g=21 TO q STEP -1 

8939 PRINT INK 33 PAPER S3AT g,f3"CO"+("CC" A 
ND £=29)3AT 9g,#-23("CC" AND #=2) 

8848 NEXT g 

@O5@ LET g=qg+RND¥4-RND*4 

@G6@ IF q<3 THEN LET g=4+RND¥2 

@@65 IF qg>2@ THEN LET q=29 

8872 NEXT ¢ 

@19@ FOR f=1 TO 21 


811@ IF SCREENS (f,98)<>" " THEN PRINT INK 4 
3AT f-1,@3 BRIGHT 13"A" 
@114 IF SCREENS (4,@)<>" “ THEN LET #1=(21-4 


1¥8+16: LET gi=f-i: GO TO 8116 
8115 NEXT fF 


8116 FOR #=1 TO 21: IF SCREENS (f,31)<>" " TH 
EN PRINT INK 43AT #-1,315 BRIGHT 15 "28" 
6117 IF SCREEN® (4,31)<>" “ THEN LET #2=(21- 


£)¥84+16: LET q2=f-1: RETURN 

8128 NEXT # 

9963 FOR f=USR "a" TQ USR “c"+7: READ g: POKE 
f.9: NEXT # 

9B1D DATA Gel, 2,68, 56,255, 255, 127, 8,128, 64,69 
, 28,255, 255,127 

9828 DATA 178,85,178,85.178,85,178,85 

9198 RETURN 


53 


Defend 


Yet again the Earth is under attack from the Alien hordes, and as always 
the fate of humanity isin your hands. This time the aggressors are out to 
capture humanoids for their debauched cloning experiments, and the 
ever cooperative humans have gathered on the (randomly generated) 
hillsides to watch the action. So it’s all down to you. You must shoot 
down the Alien craft with your powerful laser before it can lay its hands 
on the populace. Failing that, you have a chance of shooting it down once 
it has the human in tow, but be warned: if the Alien craft is too high, the 
humanoid loses its life and you lose points. And never forget — Aliens 
invariably bite back! 


REM Defend 
REM @ FAUL STANLEY 1982 
RANDOMIZE : BORDER @: INK 7: FAPER @: CL 


Gb hoe 


1) 


LET hl=1¢ 
LET 1i=2 
LET hs=6 
GQ SUB 309¢ 

1@ RESTORE : GO SUB 2646: GO SUB 1986 

15 GQ SUB 1170: BEEP .1,4 

19 PRINT AT 21,8; "FUEL: "$c#( TO 19G-hl1)s5AT @ 
sl45- "HI "shs: PRINT OVER 1;5AT yy, 153 b%: PLOT 
194,06: DRAW 84,0: DRAW 6,7: DRAW -8¢6,0: DRAW 
@,-7: IF 1i=2 THEN PRINT AT 21,13 INK 33 "CD" 


No OD 


268 PRINT QVER iti INK SjAT bvai"B"SAT Brisa 
7as 

21 PRINT AT @,@0; "Captures: "scapsAT 6,223 "Sc 
ore: "3sc3s" "” 


22 IF RND<.@8 AND b<=1t THEN GQ SUB 546 

27 PRINT QVER L3AT bas "A"SAT btl,asat 

32 IF ATTR (b+2,a)=4 AND aS=" " THEN LET a 
$="49"> LET c=ct+i: LET m=1: PRINT AT Bt2,aj5" " 

37 IF m=! THEN LET b=b-INT (RND¥3): GO TO 
45 


46 IF SCREEN® (b+2,a)=" "THEN LET b=b+(IN 
T (RND¥2)) 
42 IF SCREEN® (b-1,a)¢>" " THEN LET m=il: L 


ET c=cti 


54 Defend 


45 IF b<i THEN LET b=1 

47 IF c=8 OR b>1? THEN CLS : GO SUB 199@: 
Ga Ta 19 

5@ LET a=a-1 

55 IF a=-1 THEN LET a=31: LET m=@: IF a$=" 
A" THEN LET cap=cap+i: BEEP .1,@: BEEP .1,12 
: BEEP .1,@: BEEP .1,12: LET ag=" " 

S56 PRINT OVER 13AT y,153b% 

5S? LET y=y¥+(IN 63486=254 AND y<=1t)-(IN 634 
86=253 AND y>1) 

5@ IF IN 61438=253 THEN IF bS="CD" THEN L 
ET b#="£F": GO Ta 6@ 

59 IF IN 61438=253 THEN LET b#="CD" 

6S PRINT OVER 13AT y,153 INK 636% 

61 IF cap=3 OR hi=1@ THEN PRINT AT @,93cap 
Go Ta sea 

66 IF IN 61438=254 THEN GO SUB 199 

78 GO To 2@ 
19@ LET i=119% (bS="£F") +1 36% (bS="CD") 2 LET 5 
=(21i-y) ¥8+3 

196 PLOT i,j 

119 IF b#="CD" THEN BEEP .@5,20: DRAW 99,9: 
BEEP .94,@: BEEP .@3,-5: PLOT OVER 13i,j: D 
RAW OVER 1399,9 

126 IF bS="£F" THEN BEEP .95,20: DRAW -99,@ 
: BEEP .@4,9: BEEP .@3,-5: PLOT OVER 13i,j: 
DRAW QVER 1;5-99,¢ 

121 IF y=b AND ((b#="CD" AND a>16 AND a<29) 
OR (b#="£F" AND a<i5 AND a>2)) THEN GO TQ 2a 
@+(18@ AND a#="A") 

13@ RETURN 


2@9 LET m=@: INK 6: PRINT AT b,as"G":i BEEP . 
@3,-1@: PRINT AT b,aji INVERSE 13;"G6": BEEP .@3 


»7i6: PRINT AT by,as"G": BEEP .@3,-19: PRINT A 
T Bb,as INVERSE 13"G6": BEEP .95,-2@: PRINT AT 
b,ai"G": BEEP .9@3,-3: PRINT AT b,as" ": INK 7? 
+ LET b=1+INT (RND¥14): LET a=31 

246 LET sc=sctid 

215 LET at=" " 

226 RETURN 

38@ BEEP .@2,-5: PRINT AT b,aj"G": BEEP .@4, 
~9: PRINT INVERSE L5AT b,ajy"G": BEEP .@4,-3: 
PRINT AT b,a3"G"i BEEP .@4,-19: PRINT AT b,a 
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S95 LET f=8: FOR d=bti TO 19 

Sig PRINT AT d,as "A": BEEP .82,d¥2 

329 LET f=f+1 

S25 PRINT AT d,azs" ” 

S3@ IF SCREENS (d+i,a)<>" " THEN GO TO 3649 
S30 NEXT d 

S35 GO TO 3ed 

369 LET o=RND: IF 0o>.35 AND £>9 THEN LET sc 


sc-(35@ AND sc>=5@)-(sc AND sc<5g): FOR £=-34 
TQ 8: PRINT AT d+i,as INK RND¥4+35 "G6": BEEP 

:@2,43 NEXT £2 PRINT AT dti,ai" "2: GQ TQ 372 

37@ PRINT AT dt+i,as INK 43 "A" 

372 IF o¢=.35 THEN GQ TO 49a 

375 LET m=9 

Seg LET aB=" "2 LET a=31: LET bB=INT (RND¥14) 
+13: RETURN 

490 FAR f=1 To 4 

419 PRINT INK 43AT dt+1,a3 "A": BEEP .1,2: PR 
INT INK 45AT dt+i,ai" "SAT d,as "A": BEEP .1,4 
=: PRINT AT d,as" "i NEXT £ 

429 PRINT AT dt+i,as INK 43"°A" 

439 PRINT OVER 13AT d-i,a-23 "I’M OK! "SAT d, 
aj "["i FOR #=@ TO 198: NEXT £: PRINT AT d-i,a 
23 OVER 15 "I’M OK! "SAT d,as"["2 GQ TQ 375 
Sd@¢@ IF adisS THEN LET dir=-8@: LET stx=aX¥@-1 
S19 IF a¢<=i5 THEN LET dir=898: LET stx=a¥8+9 
S24 PLOT stx, (21-b)*8+3: BEEP .81,4@: DRAW d 
ir,d 

S25 PLOT QVER ij3stx,(21-b)¥8+3: BEEP .G1,298 
> DRAW OVER ijdir,g@ 

539 IF b=y THEN IF (at2?7 AND dir=-88) OR (a 
>*4 AND dir=S8) THEN GO TQ 564 

549 RETURN 

364 PRINT AT y,153 QVER 136%: LET a=15 

565 PLOT OVER 15126, (2Z1-y)¥8+3: DRAW OVER 
137,98 

570 FOR v=1 TO 6 

589 PRINT INK 6S3AT yvtv/Z,atvs"C"ZS AT y-vé2,a 
tvi"D"SAT ytv/2,a-vi "E£"5 AT yov/2ya-vie"F" 

599 BEEP .91,39-v 

698 PRINT AT ytv/Z,atve" "SAT y-v/2,a-ve" "5 
AT ytvé/2,a-vs" "SAT y-v/2,atvi" " 

619 NEXT v 
629 LET li=li-1i 


56 Defend 


638 IF 1i<¢>@ THEN CLS : GO SUB 1998: GQ TQ 
19 

898 FOR f=1 TO 2: RESTORE 8690: FOR a=1 TQ 8 
: READ b,y: BEEP b,y: NEXT a: NEXT f 

81@ PRINT AT 198,73 FLASH 135"G AME OVER 
“] PRINT © PRINT |: PRINT : PRINT " Press an 
y key to try again” 

815 IF sc>hs THEN LET hs=sc 

S20 IF INKEYS<>"" THEN CLS : GO TO 1¢ 

825 GO TO 826 

1968 LET hl=hlt+i: LET y=50: LET x= 

1@10 PLOT x,y 

1928 LET a=RND¥2¢: LET b=RND¥29-RND¥20 

19@3@ LET x=xta: LET y=y+b 

1949 IF x>251 THEN GO Ta 19898 

1939 IF y<1i@ QR y>6@ THEN LET x=x-a: LET y=y 
-b: GO TQ 1i924@ 

1966 DRAW a,b 

i@g?a GO Ta 192¢ 

1989 FOR x=@ TO 24 STEP 3 

1@9@ LET a=INT (RND¥6) +x 

1995 LEF #=2¢6 

119@ FOR b=4 TO 21 

1119 IF SCREEN® (b,a)<>" " THEN PRINT AT b,a 
+ INK 435 "A": LET b=b+2 

1128 NEXT b: NEXT x 

1i21 FOR f=11 TO 17: FOR y=@ TQ 31: IF SCREEN 


BS (fay) So" " THEN LET 1t=f-1: GO TO 11398 
1122 NEXT y: NEXT f 

113@ LET y=S: LET c=0 

1135 LET b#="cD" 

114@ LET a=S1: LET b=1 


1156 LET at 
1169 LET m=a 
1164 PRINT AT 21,13" " 

1165 IF 1i=2 THEN PRINT AT 21,13 INK 353 "C€D" 
1168 RETURN 

1170 LET sc=@: LET cap=@: LET c=0 

1182 LET hl=@: LET 1i=2 

1260 RETURN 

2968 FOR a=USR “a" TO USR "g"+7: READ b: POKE 
a,b: NEXT a 

2618 RETURN 

28298 DATA 28,28,8,62,8,8,29, 34 

29398 DATA @,24,66,66,255,126.466.BIN 81199119 


" ">; LET c¢="EREEEEEESE" 


Defend 57 


2446 DATA 4,96,199,BIN 11491196, 255,255,3,¢4 
2G5G DATA 0,9,244, 24,255, 252,224,909 
206 DATA G,@, 5,24,255,63,7,8 

2070 DATA @,@,BIN i1ig@g@it, BIN gaa@iiggi11,255,2 
3535,192,4 

2086 DATA 196.9, BIN 1911dggd,6,298,74,145,BIN 
GLLEGiag 

3a¢08 FOR a=1 TO 34: FRINT AT RNDX¥21,RND¥265 I 
NK RND¥3+43 "DEFEND": BEEP .@1,RNDX19: NEXT a 
Sdig PAUSE imag: CLS 

S3d2G PRINT "A fleet of aliens have managed t 
o get past defensive lines on Earth. GQne by 
one they fly in with the sole intent of pic 
king up Humanoids which have climbed to the t 
op of the hills to see what is happening." 
S93a PRINT =: PRINT "Your job is to prevent th 
e fleetfrom capturing the Humanoids. You ha 
ve a powerful laser with which to shoot down 


the aliens.” 
34498 PRINT : FPRINT "CONTROLS ARE: 


eee 


6 rere ec wee ete see e ee se s DOWN 2 asahialtsine 
alae eseiteer en sete 6 SG. 6 ess, s-ecereID Goenuceeceseess- Change 
direction Dee aca Sere e ete stan eo fetce: yas. cs ier Tre” 
3941 PRINT : PRINT : PRINT INVERSE 13 "Press 
any key to continue": PAUSE @ 
3945 CLS 
305¢@ PRINT : PRINT “You have been defeated wh 
en 3S Humanoids have been captured.": PRINT 


: FRINT "It is alright to shoot at alienswhic 

h are clutching a Humanoid as long as he doe 

s not fall too far (if he does you forfeit 5d 
points).” 

3460 PRINT "Note that only green HumanoidsS a 

re attractive to the aliens.": PRINT : PRINT 

"Don’t underestimate your enemy invader, he 

may have a trick up his sleeve.....": PRINT : 
PRINT "Every so often the computer willtake 

you to a new location at the expense of som 

e of your fuelwhich if zero will end the game 

2": PRINT : PRINT INVERSE 1is5"Press any key t 

o continue": PAUSE @ 

3865 CLS 

2278 RETURN 

BSGG9 DATA .1,11,.1,11,.8,16,.95,11,.85,16,.985 

,11,.95,16,1,2¢0 


58 


Flying Bomb 


The year is 1943. You area wartime test-pilot under orders to conduct a 
series of tests on a powerful new flying bomb which, if it proves its 
mettle, could bring D-Day that much closer. Your instructions are to try 
out the new wonder weapon ona Nazi bunker (situated at the bottom 
right of your TV screen), You can only drop one bomb per run, and 
because you’ve never grappled with these devices before, it’s going to 
take youa while to get the hang of the controls. But do your best. Your 
country is depending on you! 


1@ PAPER 1: INK 7: BORDER 5 
15 LET Sc=¢ 
2@ LET PO=@: LET CR=@: LET DIST=279999: LET 
DC=DIST: LET TH=1@@@: LET D=@: LET H=4: LET 
DK=D: LET HK=H: LET S=15¢ 
49 GO TQ 419 
106 CLS : PRINT INVERSE 1i3; "FLYING BOMB” 


195 PRINT INVERSE 13AT 2,83 "SCORE: WAT 2 

,678C 

11@ PRINT INVERSE 13AT @,143 "MLS TO TARGET: 
"SAT 1,183 "HEIGHT FT: "SAT 2,183 "SPEED 

NTS: " 


124 PRINT AT 18,9; PAPER 53" 

15@ PRINT AT 26,0} PAPER 2;"USE’A&Z’KEYS FOR 
HEIGHT, ’N&M’FORSPEED AND ’*K’ TQ RELEASE BOMB 
t u 

17@ PRINT INK 3;AT 14,313 "£"3AT 15,303 "Fm"3 
AT 16,29; "(ME"SAT 17,28;"/Mm" 

199 REM ¥¥MAIN ROUTINE 


229 PRINT INVERSE 1;3AT 1,283" “SAT 1,283 
INT ((17-H) ¥1@@-29) 

238 PRINT INVERSE 1;AT @,28;" "SAT @,283 
(27-D)/5 

249 PRINT INVERSE 13AT 2,283" "SAT 2,283 
S¥2 

259 PRINT AT HK,DK5" "SAT H,D3 INK 43 "AB"3; 


LET HK=H: LET DK=D 
39@@ LET A=PEEK 23556: IF A=255 THEN GO TO 3 
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3@5 IF A=??? THEN LET S=S+5: IF S>195 THEN 
LET S=195 

3i@d IF A=?78 THEN LET S=S-5: IF S<¢45 THEN P 
RINT AT 16,8; FLASH 1; "STALLED! ": GO TO 852g 
326 IF A=65 THEN LET H=H-.1 

33@ IF A=99 THEN LET H=H+.1: IF H>16.8 THEN 

Ga Ta 758 

34@ IF H<2.2 THEN LET H=2.2 

35@ IF A=75 THEN FRINT INK 45AT HK,DK$ "AC" 
3: GO Ta 5e¢ 

368 IF H>13 AND D>2?7? THEN Go Ta 78s 

399 REM *¥*¥MOVE CLOSER 

4906 LET DC=DC-S: LET D=INT ((DIST-DC)/TH) 
495 IF D>3@ THEN Go Ta a1¢d 

41a Ga TO 298¢ 

566 REM ¥¥BOMB DROPPED 

Si@ LET Y=i1: LET VEH+l: LET F=HDtli LET HK=V: 
LET DK=F 

539 LET X=Y¥#Y#(1-S/209) 

531 BEEP .91,-29 

535 LET V=V+X/49: LET FHF+Y/8 

S5@ IF V>15S AND F>28 THEN GO TO 719 

S?@ IF V>16.5 OR FSL1 THEN co Ta sid 

S75 PRINT AT HK,DK$" "5 

589 PRINT AT V,FS"D" 

565 LET HK=V; LET DK=F 

599 LET Y=Y¥+1: GO Ta 539g 

660 REM ¥#initialisation 

61@ FOR x=@ TQ 7: READ a,b,c: POKE USR "A"+tx 
7a: POKE USR "&"+x,b: POKE USR "C"+x,ci NEXT 
x 

420 FOR x=8 TO 7: READ a: POKE USR "D"+x,a: 
NEXT x : 

63@ FOR x=@ TQ 7: READ a: POKE USR "£"+x,as 
NEXT x 

64@ FOR x=@ TO 7: READ a: POKE USR "F"+x,a; 
NEXT x: GO TO 19¢ 

699 REM *% WON GAME 

7i@ PRINT AT HK,DKs" "$§ 

72@ PRINT AT 16,115 FLASH 15 "CONGRATULATIONS 
fos 

725 LET SC=SC+i: PRINT INVERSE IL5AT 2,65SC 
73@ PRINT PAPER 73 INK 23 FLASH I3AT 14,315 
"E£"5AT 15,3905" "SAT 16,293" "SAT 17,285" 


eee... Ll eee 


60 Flying Bomb 


735 FOR X=1 TQ 1@: BEEF .@1,1@: BEEP »-81,+5: 

BEEP .@1,15: NEXT X 

748 FOR X=1 TO 198; NEXT X: RESTORE : GO Ta 
2a 

749 REM ¥DITCHED 

7598 PRINT INK 23AT 16,113 FLASH 15 "DITCHED! 


“; GO TO 99a 
779 REM ¥¥CRASH ON TARGET 
786 PRINT AT 16,113 "THAT’S CLEVER! ": Ga To 7 


ega@ REM **¥LOST GAME 
€1@ PRINT AT HK, DK; " ? 
B26 PRINT INK 23 PAPER 6353AT 16,113 FLASH 1 
me LOST oY 
838 GO TA °ag 
84@ REM *¥STALLED 
85@ FOR X=H TO 17: PRINT INK 43AT X,D3" m5 
AT A+1,D3 "AB" NEXT X 
98@ FOR X=1 TO 16: BEEP .@5,-19: BEEP 85,5: 
BEEP .@5,-5: NEXT xX 
P19 FOR X=1 TO 1@@: NEXT x 
926 RESTORE : GO TO 2a 
9°8 STOP 
999 REM plane 
1gg@ DATA 192,9,;8,64,9,0,127,248, 248, 24,175,1 
75515, 254, 254,6,194,8,8,127,9,8,198,8 
1g@? REM ¥bomb 
1819 DATA G,9,4,8,4,199,127,198 
1919 REM dam 
1928 DATA 64,64,64,64,64,64,64,255 
1@3G DATA 1,3,7,15,31,63,127, 255 
3999 STOP 
40@@ PAPER 7: INK @: BORDER 7: CLS 
8999 STOP 
agg FOR y=@ TQ 7: INPUT at: LET t=@: FOR x=1 
TO 8: LET t=t+2*(8-x)*¥VAL aS(x)! NEXT x: PRI 
NT t 
7918 POKE USR "A"+y,t 
9828 NEXT x: NEXT y 
9GS3G PRINT "4" 
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Radiopower 


This is a multi-player game, with each player running a radio station in 
competition with other players’ stations. After registering your station 
you then get the choice of show presenters to hire. Some are high priced, 
some are cheap, and the expensive ones are better audience “draws’’. 
The choice of presenters will effect how well your station will produce 
the type of show you want, since the presenters near the beginning of the 
alphabet (Aardvark, Boulder, etc.) are great for talk shows and news, 
but no good for music. Those in the middle are OK for all sorts of shows 
in an average way, so that Jetsetter and Ricky Radio can handle general 
shows, with say 50% music but the ace DJs you need for a pop radio 
station are to be found near the end of the alphabet, and you need these 
for high percentages of music on your programs. 


The percentage of music you are going to have on your station has to be 
entered, and this is followed by the number of radio cars you want to 
run, to be used for covering local events and thus typifying your 
community spirit. 


Your station is funded by advertising, so you have to spend money on 
promotion, to get the populace listening, and hence make advertising on 
your station desirable. 


The computer then displays the broadcast area for all the stations, 
spreading the call-sign of the stations over the map. Another annual 
review comes up and you get the chance to alter the composition of your 
station to get a greater edge. Play continues until someone conquers the 
airwaves over the South Coast, stations with no listeners dropping out of 
the game. 


1 REM RADIOPOWER B 
Y H. WALWYN FOR THE CBM 64 
CONVERTED FOR THE 48K S 
PECTRUM BY ANDY GREEN 


19 RESTORE : PRINT PAPER 23 INK 65 FLASH 1 
3" INITIALISING"; FLASH @j" PLEASE WAIT....--- 


2@ POKE 23658,255: REM CAPS LOCK 
3@ DIM I$(13): DIM H#(1i5): DIM G#(19): DIM 


62 Radiopower 


NS(25,15): DIM $%(25,15): DIM P(4,25): DIM T< 
25,2): DIM T&(25,13): DIM $(25): DIM R(25) 

4@ DIM BS(23,15): DIM M(23): DIM B(23): DIM 
N(23) 

5@ FOR I=1 TO 23: READ BS(I),M(I),.B(I): NEX 
T 

59 REM ** DATA FOR PRESENTERS’NAMES, QUALIT 
Y RATING AND PRICE 

68 DATA "ARNOLD AARDVARK", 1, 59998 

61 DATA "BRIAN BOULDER", 2,39999 

62 DATA "CLARA CUTHROAT’,5, 45999 

63 DATA "DINA DINAMICK",19, 25999 

64 DATA "EDDIE EEL",15, 19909 

65 DATA "FREDA FOOLISH", 29, 19999 

66 DATA "GERRY GULLIBLE”,25, 19996 

6? DATA “HARRY HATEFUL",.39, 15998 

68 DATA "IZZY IDLETALK",35, 19999 

69 DATA "JOLLY JETSETTER",49, 25999 

78 DATA "KING KNIFE",59, 20898 

71 DATA "MOLLY MUD" ,5@, 19999 

72 DATA "NED NORMAL",59, 29999 

73 DATA "POLLY PERSPEX",6@, 19999 

74 DATA "RICKY RADIO",65, 25999 

75 DATA "SALLY SONIX",79, 15990 

76 DATA “TOMMY TAPE",75, 39999 

77 DATA "UNCLE USELESS", 289, 19909 

78 DATA "VICTOR VROOM", 85, 25999 

79 DATA "WALLY WETLOCK",.99, 1999¢ 

8S DATA "XANDRA XEXY",95, 49998 

@1 DATA "YALE YESTERYEAR", 98,45999 

82 DATA "ZQQT ZIEGLER",.99, 59999 

19@ DIM D&(22,32) 

195 FOR I=1 Ta 26: READ D#(I) 

196 NEXT I 

1g? FOR I=1 TO 25: LET P(2,1)=199999: NEXT I 
1@? DATA THERE EEE E EEE EEE EE EEE EEE EE Ee Hee ete 


116 DATA "+ STOCKBRIDGE o vor 
112 DATA "+5SALISBURY o WINCHESTER o ee 
113 DATA "+ at 
116 DATA "+ TWYFORD o +" 
Li? DATA "+ ROMSEY o P/FLD ot” 
118 DATA "+ CHNDLRS/FORD o aoe 
119 DATA "+ EASTLEIGH o 4: 


126 DATA "+ B/WALTHAM o +0 
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121 DATA "+F/BRIDGE o a 
122 DATA "+ TOTTON o # +" 
123 DATA "+ ## oO SOUTH/TON+* 
124 DATA "+ HHWICKHAM o +" 
125 DATA “+ LYNDHURST o ## ie 
126 DATA "+ RINGWOOD o #HFAREHAM ot" 
127 DATA "+ B/HURST oO HHHH +" 
128 DATA "+ # HHHHHH +" 


129 DATA "+C/CHURCH of #####HHHHHHH? / MTHHOF “ 
1S@ DATA "+0 B/MTH#HHHHHHHHHHHHH HEHEHE HHH + 
i131 DATA “REEEREEE EEE EE HEEEEEHTHE +H HE te eet eeee 
196 FOR I=1 TQ 2@: READ T(I,1),T(I,2)% NEXT 
I: REM ** READ IN COORDINATES OF THE VARIOUS 
TOWNS 

194, DATA 223) Ae 1 OR4 527 165 2057 51557539, 84 21 
9,24, 10227, 14,1 O12 ts 

192 DATA 13,29,14,28,15,13,16,11,16,39,17,14 
319, 18,19,38,28,1 

193 FOR I=1 TQ 2@: READ T#(I): NEXT I: FOR I 
=1 TO 2@: READ S(I): NEXT I: REM *¥* READ IN P 
LACE NAMES 

194 DATA "STOCKBRIDGE", "SALISBURY", "WINCHEST 
ER", "TWYFORD", “ROMSEY", "PETERSFIELD" 

195 DATA "CHANDLERS FORD", "EASTLEIGH", "BISHO 
PS WALTHAM", "FORDINGBRIDGE", "TOTTON" 

196 DATA "SOUTHAMPTON", "WICKHAM", "LYNDHURST" 
"RINGWOOD", "FAREHAM", "BROCKENHURST" 

197 DATA "CHRISTCHURCH", "PORTSMOUTH", "BOURNE 
MOUTH! , 1 Si45.2 ee ceede esto 1 

198) DATA Sel s1e2.2¢1s445.5 

199 REM ¥* DISPLAY MAP 

200 PAPER 4: BORDER 5: INK @ 

2@5 CLS : PRINT AT 2,93 

219 FOR I=1 Ta 20: PRINT PAPER 23 INK 63 Ds¢ 
I): NEXT I 

259 FOR I=1 TO 25: IF N®(I,15)<>"*" THEN GO 
TQ 279 

268 PRINT AT T(I,i),T(I,2)3 PAPER 35 INK 53 
S8(I,1) 
278 NEXT I 
3@@ PRINT AT 9,93 PAPER 63"SPACE"3 PAPER 43" 
FOR AUDIENCE REACTION. "; PAPER 53 "ENTER" 
PAPER 4:" TO SPEAK TO ME.” 
3i@ LET AS=INKEYS: IF AS="" THEN GO TQ 3194 
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4 cre) 
786 
7B? 
1G 


ER 33 


73a 


IF AS=" " THEN GO TO 7@eg 

IF AS< >CHRS 13 THEN GO TO 314 

Ga SUB S9eg 

GQ TO 22¢ 

REM **% GOSUB DISPLAY REACH ON MAP 

PAPER 3: BORDER 1: INK 6 

CLS : PRINT “HAS EVERYONE DONE THEIR ANN 
PROGRAMME REVIEW? (Y,N) "5 

LET AS=INKEYS: IF AS="" THEN GQ Ta 793 
IF AS="N" THEN PRINT AS: GQ Ta 2ag 

IF AS<>"¥" THEN GO TQ 793 

PRINT AS 

CLS : PAPER 4: BORDER 4: INK @ 

PRINT AT 2,93: FOR I=1 TQ 2@: PRINT PAP 
DS(I)i NEXT I 

FOR I=i TQ 25: IF N#(I,15)<>"*" THEN GO 


TQ 795 


79D 
@" 
795 
797 
Bag 
Bid 
815 
829 
825 
3830 
835 
3840 
86g 


PRINT AT T(I,1),T(I,2)3 PAPER 53 INK 23" 


LET P(3,1)=@: NEXT I 
LET @Q=1 

LET PP=@: FOR I=1 Ta 25 

IF NS(I,15)<>"*" THEN GQ TO 95¢ 

IF P(1,1)*19<@@ THEN GO Ta 959 

LET PP=1 

LET PX=T(I,2)! LET PY=T(I,1) 

LET DX=INT (RNDX¥3)-1 

LET DY=INT (RND¥3)-1 

LET K=CODE SCREENS (PY+DY,PX+DX) 

IF K=35 OR K=64 OR K=CODE S#(I) THEN GO 


TQ 938 


87d 
S74 


IF K=43 THEN GO TO 825 
FOR M=1 TO 242 IF NS(M,15)<¢>"*" GR SB CM) 


=3$(I) THEN GQ TO 876 


875 
8376 
Seg 
Bes 
836 


+DKG" 


99D 


IF CODE S#(M,1)=K THEN GO To sag 

NEXT M: GO Ta 99¢ 

LET P(3,M)=P(3,%)-1 

FOR X=1 TO 5: PRINT AT PY+DY,PX+DX3 "x" 

FOR Z=1 TO S@: NEXT Z: PRINT AT PY+DY,PX 
"2 NEXT X 

PRINT AT PY+DY,PX+DX} PAPER 13 INK 63 FL 


ASH 13S8(I,1): BEEP .92,3 


O84 


LET PY=PY+DY: LET PX=PX+DX: LET P(3,1I)=P 


aca 
F1G 
93a 
950 
268 
9768 
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+1 

Ga Ta 959 

LET FY=PY+DY: LET PX=PX+DXx 

NEXT I 

LET Qa=aQQ+1 

IF PP=@ THEN GO SUB 9990: GO TO 18966 


988 GO TO Bag 

1968 PRINT AT @,@:"THAT’S THE AUDIENCE REACH 
AT THEMOMENT.": FOR Z=1 TO 75: NEXT 2: PRINT 
AT @,9; "PRESS SPACE FOR STATION DETAILS. 

191@ LET AS=INKEYS: IF AS<>" " THEN GO TO 19 
1g 

119@ REM 

1114 FOR I=1 TO 20: IF NS(I,15)<>"%" THEN GO 
Ta 1118 

1116 LET P(2,1)=P(2,1) +P (3,1) *1588 

1117 BORDER 1: GO SUB 299¢ 

1118 NEXT I 

1122 PRINT "SPACE TQ RETURN TO BASIC MAP" 
1123 IF INKEYS<>" " THEN GO TO 1123 

1125 Ga Ta 2990 
2ag@ CLS : PRINT "----------------c corr ccr nnn 
2G1@ PRINT "RADIO ";S8(I)’ "BASED IN "3TS(T) 
2926 PRINT *"STATION MANAGER: "3N®(T) 

2649 PRINT ’"AUDIENCE FIGURES..."3P(1,1)5"%" 
2@5G PRINT "AUDIENCE APPRECIATION... "3P (3,1) 
2eeg@ PRINT *"MONEY NOW AVAILIBLE...£"3P (2,1) 
2962 FOR J=1 TO 23: IF N(J)=I THEN PRINT "PR 
ESENTER..."$BS(J) 

2063 NEXT J 

2O7O PRINT "--------- oor " 
2938G PRINT "SPACE FOR MORE DETAILS” 

2998 IF INKEY#<>" " THEN GO TQ 2499 

21G@ RETURN 

4999 REM ¥*% INPUT NEW MOVE 

saaqq GO SUB 9990: PRINT AT 9,9;3"IS THIS A NEW 

STATION? (Y/N)" 

5@@3 IF INKEYS<>"Y" AND INKEY#<>"N" THEN GO 
Ta 5g8@3 

5904 IF INKEYS="Y" THEN GQ TO 59964 


SOAs 
bah 45 f=) 


GO TO 583g 
GQ SUB 999¢: PRINT AT 9,9; "WHAT IS YOQUR 
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NAME PLEASE ?"; INPUT LINE H#: LET H#@(15)="*% 


3898 GO SUB 9999: PRINT AT @,93"THE NAME OF Y 


OUR STATION ? “: INPUT LINE G® 
S@1@ FOR I=i TO 25: IF S#(I,1)=Ge(1) THEN GO 
TO S5@1a 


S@12 NEXT I: GO Ta S@1is 

S@13 PRINT AT @,93"SQRRY BUT PLEASE CHOOSE AN 

QTHER NAME": FOR I=i To 29@: NEXT I: GO SUB 9 

9a; GO TO 5998 

9915 GO SUB 99ag 

3929 PRINT AT 9,93 "RADIO: "3G%’ "MANAGER: "3H& 

S@21i FOR I=1 TO 198: NEXT I: GO SUB 9909 

Sa@22 PRINT AT 6,6; "BASED IN WHICH TOWN? (PLEAS 

E ","ENTER “3 INVERSE 13 "FULL"; INVERSE @3" P 

LACE NAME)": INPUT LINE I% 

S@25 GO SUB 9909: FOR I=1 TO 25: IF T#(I)=I1# 

AND NS®(I,i5)="*%" THEN GO TQ 5926 

3924 IF T#(I1)=I% THEN GO TO 5928 

S@26 NEXT I: GO SUB 9890: PRINT AT 9,93 "SORRY 
BUT THAT PLACE IS NOT"’ "AVAILABLE. ": FOR I=1i 
TO 194: NEXT I: GO SUB 9496: GO Ta 5922 

59027 RETURN 

5628 PRINT AT @,93"QK. CONGRATULATIONS ON AN 

Ew STATION OPENING. GOOD LUCK!" 

SO@29 PRINT AT TC(I,1),T¢(1I1,2)3 FLASH 13"@": LET 
S#(I)=GS: LET NS(I)=HS: FOR I=1 TO 19@: NEXT 
I: RETURN 

S93@ CLS : PRINT “ENTER YOUR NAME PLEASE:- "3 

> INPUT LINE H®& 

S9S8 FOR I=i TO 25: IF NS(I, TO 14)=HS( TO 14 

) THEN GO TO 5959 

S840 NEXT I: PRINT *"SORRY BUT I HAVE NO RECO 

RD OF THAT NAME": FOR I=i1 TO i@@: NEXT I 

3945 RETURN 

S855 CLS : PRINT "RADIO "3SH(1I)’ "OF "3TSC(I) 

596@ PRINT "STATION MANAGER... "’NSC(I) 

5Sd78 PRINT "H##H#HHHHHHHHHHHHHHHHHHAARHHRH HE 

S88 PRINT “MONEY AVAILABLE...£"3P(2,1) 

S999 PRINT "###HHHHHHHHHHHHHH HHH HHH HHA HAHAH 

S19@ PRINT INVERSE 13"NQ. NAME 

PRICE 5° 

Si1i@ FOR J=1 TQ 23: IF N(J)<>@ THEN GO To Si 

3g 
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5115 IF RND>.45 THEN GO TO 51398 

5126 POKE 23692,255: PRINT Js TAB 6;B8(J)5" 

"; BCI) 

Si3@ NEXT J 

5i5@ PRINT "DO YOU WANT TO HIRE GNE? (Y/N) " 

Si5i PQKE 23692,255: LET AS=INKEYS: IF AS<>"Y 

" AND AS<>"N”" THEN GO TQ Sidi 

5152 IF At="N" THEN GO TO 5165 

51535 PRINT AT 28,8; "WHICH PRESENTER DO YOU WA 

NT?"’ “NUMBER... "5 

Si54 GQ SUB 8900 

5155 LET B=VAL H®: IF B=1@@ THEN GO TO 5165 

5156 IF B>23 THEN GO TO S153 

5157 PRINT AS: PRINT "YOU HAVE £"j3P(2,T) 

5169 LET N(B)=I: PRINT *>BS(B)3" JQINS"’ "RADIO 
Moe CLAS hee 

5165 LET P= 

5179 PRINT “PRESENTERS GON STATION..."’: LET B 

=9: FOR J=1 TO 23: IF N(J)=I THEN GO TO 5188 

5175 NEXT J: GO TO 5195 

5i@q@ LET B=1: PRINT JSTAB S;3BS(J)3 TAB 255 B(I) 

5185 LET P=P+B(J): GO TO S175 

5195 IF B=@ THEN PRINT "NO SPECIAL PRESENTER 

S$ ON STATION" 

5266 PRINT *"YOUR WAGE BILL IS £"§P 

5292 IF P=@ THEN GO TO 5388 

52905 PRINT "0G YOU WISH TO FIRE ANY OF THEM? ¢ 

Y/N)" 

5219 LET AS=INKEYS: IF AS<>"Y¥" AND AS<>"N" TH 

EN GO TO S219 

5270 IF ASB="Y" THEN GO TO 52598 

5225 GQ TO 53¢¢ 

5230 PRINT "WHICH ONE...NO.” 

5231 GO SUB eggg: LET N=VAL HS 

5232 IF N23 THEN GO TO S231 

5235 IF N(N)<>I THEN GO TO 53928 

5249 LET N(N)=@: LET P=P-B(N) 

5259 PRINT BS(N)3" LEAVES RADIO “3S#(T) 

5306 LET P(2,1)=P(2,1)-P: IF P(2,1)<@ THEN G 

Q TO 3328 

S310 PRINT C95 SSS 55H RSS RSS See Se eee SSS : 

S3ii PRINT "YOU NOW HAVE £"5P (2,1) 

5315 GO TO 535¢ 

5326 PRINT “YOU HAVE BANKRUPTED YOURSELF !" 
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5325 LET P(2,1)=P(2,1)+P 
5339 PRINT *"THEREFORE YOU MUST FIRE ONE OF T 
HEM...": GO TQ 5165 

535@ PRINT "-------------------------------- i 
5355 PRINT “WHAT PERCENTAGE OF YQUR OUTPUT I 
S GIVEN OVER TO MUSIC? (Q-19@)" 

S257 GO SUB 8@@@: LET R=VAL H# 

5366 PRINT "-------------------------------- " 
5365 PRINT *"RADIO CARS COST £19@@@ EACH." 
5367 IF R(I)=@ THEN GO TO 537¢ 

5368 IF RND>.4 THEN PRINT "ONE QF YOURS HAS 
FALLEN APART": LET R(I)=R(I)-1 

S378 PRINT "YOU HAVE "$R(I)3" RADIO CARS, "’N 
$(T) 

5386 PRINT "HOW MANY MORE DO YOU WANT NOW?" 
5381 GO SUB 3ega¢ 

5382 LET PR=VAL H®: IF PR+R(I)=@ THEN PRINT 
“WHAT HAVE YOU GOT AGAINST RADIO CARS?" 

5383 IF PR+R(I)>S THEN PRINT "COME ON NOW, N 


Q GNE NEEDS MORE THAN 5.": GQ To 5389 
5385 PRINT "YOU NQW HAVE "sPR+tR(I)$" RADIO CA 
RS, ""NS(T) 


S398 LET P(2,1)=P(2,1)-PR¥1GaGo 
5490 IF P(2,1)<@ THEN PRINT "NOT ENQUGH MONE 


Yor! : LET P(2,1)=P(2,1)+PR¥1@99@: GO TO 538¢ 
5402 LET R(I)=R(1)+PR 

54@5 PRINT *"YOU HAVE £"3P(2,1)3" LEFT" 

5419 PRINT "-------------------------------- : 


S415 PRINT ’"HOW MUCH TO SPEND ON PROMOTOION? 
"3 GO SUB e@9@: LET PM=VAL HS 
5428 LET P(2,1)=P(2,1)-PM: IF P(2,1)<@ THEN 


PRINT "NO CASH! !!"— LET P(2,I)=P(2,1)+PM: GO 

TO S4is 

3699 PRINT "-------------------------------- 
3695 PRINT °?"QK. THANK YQU VERY MUCH "’NS(T) 
S769 LET PI=PM¥(1+RND) +R( I) ¥19999X (2+RND) +200 
SOXRND 


S7i@ FOR J=1 TQ 23: IF N(J)<>I THEN GO TO 57 
og 

5720 LET PP=ABS (R-M(J)) 

37398 LET PI=P1+B(J)/19*(19G-PP) 

S758 NEXT J 

S800 POKE 23692,255: PRINT *’"YOUR PREVIOUS AU 
DIENCE FIGURES WERE..."3P(1,1)3"%" 
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Sore PRIN, "2 ssS Seas Sse essen TS SS " 
5615 LET P1=INT (P1/19@9a8)/19 

Se2@ PRINT ’"YOUR CURRENT AUDIENCE FIGURES 
ARE... "§P15 "%" 

S630 IF Pi>a@ THEN GQ TQ 3845 

5@35 INVERSE 1: PRINT °’"“I’M AFRAID THAT NO ON 
E APPEARS TG LISTEN TQ YOUR STATIQN AND " 

( PRINT "THEREFORE YOU HAVE BEEN REMQVED " 
PRINT "FROM YOUR JOE !!! mn 


an 
OD 
td 


ul 
fan) 
he 
> oO 


S841 PRINT "RADIO "3S8(1)3" IS " 

5242 PRINT PAPER 23 INK 63 FLASH 13"QFF THE 
AIR "3; FLASH @3" SORRY ABQUT THAT, BUT THAT’ 
S SHOW BUSINESS !!! ": INVERSE @ 

5843 LET S8(I)="": LET P(2,1)=19@8a: LET P(1, 
I)=8: GO Ta 5999 

5845 LET P(1,1)=P1 

S850 PRINT "----------------- o-oo " 
S855 PRINT '“RADIO "3S8(1)5" IS" 

EG6@ PRINT *"STILL ON AIR..."?? "YOUR AVAILABL 


E MONEY IS"’ "£"5P(2,7) 

58760 PRINT °"...WE SHALL HAVE TQ SEE WHAT 
HAPPENS TC YOUR REVENUE WHEN THENEW FIGURES A 
RE TAKEN INTO"’ “ACCOUNT. " 

59@@ PRINT INVERSE i; *SPACE"3 INVERSE a3" TO 
RETURN TQ MAF® 


S918 IF INKEYS<>" " THEN GO TO 5919 

5°26 RETURN 

7999 STOP 

epe@g INPUT LINE H%: FOR X=1 TO LEN H#: IF CO 
DE H#(%)<48 OR CODE H#(X%)>57 GR H#(X)=" " THE 


N GQ Ta 8Bge8Eg 
8681G RETURN 
9g@@ PRINT AT @,a3" 


64 Spaces 

9¢g1a RETURN 

9998 STOP 

9999 BORDER 7: PAPER 7: INK @: CLS 
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Scuba 


OK, so it’s on with the face-mask and flippers and over the side with 
you. The idea is to catch as many fish as you can for supper. You’re 
armed with a simple fish spear and you just have to swim within reach of 
your prey to catch it. The trouble is, there are some nasty looking sharks 
with their eyes on man meat, and whilst most of the time they seem quite 
content to live and let live, sharks have a reputation for being less than 
predictable! The only other serious problem facing you is that your tank 
only holds three minute’s worth of oxygen, so every now and then you'll 
have to return to your raft for fresh supplies. The fish (and sharks) are 
programmed to change course at random and you will find it surprisingly 
hard to catch a fish once it is in a ‘panicky’ mood. 


1 REM SCUBA 
BY H. WALWYN FOR THE COMMODORE 
64 

CONVERTED FOR THE 16/48K §$ 
PECTRUM BY ANDY GREEN 


4 LET AIR=6 
5S POKE 23658,255: REM ¥* PUTSMACHINE INTO 
CAPS-LOCK MODE 

i@ LET ze="" 

ii LET P= 

28 GO SUB 99996 

25 GO SUB 5909 

27 GO SUB 3996 

3@ REM T$() HOLDS CHARACTER TYPE FOR FISH 
/ SHARK 

5@ REM ** CHARACTER NUMBERS ARE AS FOLLOW 
S 

51 REM 1,2,3 ARE SHARKS 

52 REM 4,5,6 ARE FISH 

54 REM 7? IS THE SWIMMER 

6@ REM X() AND Y() ARE SCREEN COORDINATES 

é1 REM S#() HOLDS THE 12 CHARACTERS SE 
E 599¢- 

62 DIM X(7): DIM Y(7): DIM S#(12): LET Se=" 
I" "#S%R ()¥4, "2 REM DOUBLE QUOTES** AREINTENT 
TONAL 

63 REM D() ARE FISH DEPTH STEPS 

64 DIM D(6é)! DIM T#(6) 


1 
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65 REM Mt) ARE FISH MOVE STEPS 

66 DIM M6) 

67 REM $() ARE FISH RANDOMISERVARIABLES 
6&6 DIM S(d6): DIM U4) 

ea REM U() ARE CHARACTER CQLOURS 
@i REM SHARKS ARE ALWAYS CYAN 

S82 LET UC(t)=S: LET U(2)=S:3 LET U(S)=5 
83 REM FISH ARE DIFFERENT COLOURS ..-. 
&4 REM FISH (#4) IS RED 

a5 LET U(4)=2 

26 REM FISH (#5) IS WHITE 

@? LET U(S)=7 

S&S REM FISH (#6) IS YELLOW 

69 LET U(6)=6 

og REM SWIMMER IS GREEN 

91 LET MC=4 


99 REM X¥¥ S=SWIMMER TYPE ** 
198 GO SUB 4996 

12@ REM ** FISH SETUP 

13@ FOR K=4 TO 6 

135 LET S(K)=1 


146 LET X¢K)=@: LET Y(K)=INT (RND#¥1it+11)°3 LE 
T D(K) SINT (RND¥S-1) 


165 NEXT K 


198 LET %(7)=23: LET ¥(7)=4: LET SL: LET T= 


219 LET KS®=INKEYS 


211 PRINT PAPER @} INK 43AT Y(7),X(7)5" "3 
IF zs="-" THEN PRINT AT Y(7).X(7)3"=" 


219 LET AIR=AIR-1 
2290 IF KS="X" THEN GO TO 239 


221 IF T=1 THEN LET AIR=18@: GO TO 399 


222 IF K#="E" THEN GO TO 249 
2?3 IF ¥(7)<1 THEN GO TO 399 
224 IF K#="F" THEN GO TO 256 
226 IF K#="S" THEN GO TO 269 
229 GO TO 399 


23@ IF T=1 AND Y¥(7)>4 THEN LET T=@: LET MC= 


232 LET Y(7)=¥(7)4+1: IF S=l2 THEN 
GO TO 234 

233 LET S=12 

234 IF Y¥(7)>21 THEN LET YC?) S21 
236 GO TO 396 


LET S=11: 
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240 LET Y(7IS¥ 71-12: IE Sais THEN LET Satie 
GO To 244 

242 LET S=12 

244 IF ¥(7)<5 AND X(7)>2@ AND X(7)<26 THEN 
GO To 248 

245 IF ¥(7)<5 THEN LET Y(7)=5 

246 GO TO 396° 

248 LET X(7)=23: IF ¥(7)<S THEN LET MC=3: L 
ET T=1 

24° GO To 3e¢ 

258 LET X(7)=X(7)+1: IF ($<5 AND S>2) THEN 
LET S=11: GO To 254 

251 IF S=1 THEN LET S=2: GO Ta 254 

252 LET S=1 

254 IF X%(7)>31 THEN LET X(7)=31 

258 GO To 39a 

26@ LET X(7)=X(7)-1: IF $<3 THEN LET $=12: 
GO TO 264 

261 IF S=3 THEN LET S=4: GO To 264 

262 LET S=3 

264 IF X(7)<@ THEN LET X(7)=<@ 

268 GO TO 39¢ 

39@ LET Z#=SCREENS (¥(7),X(7))! PRINT AT Y(? 
:%(7)5 PAPER @} INK MC$S4#(S) 

328 IF CODE Z#>32 AND CODE 7#<45 THEN GO To 
33g 
325 GO To 49¢ 

33@ REM ¥¥ COLLISION OF SWIMMERAND ... ?!7 9 
BJECT HELD IN 7% 

333 FOR K=1 To 6 

334 IF X(K)=X(7) AND Y¥(K)=Y(7) THEN GO To 3 
45: REM DECIDE WHICHCREATURE THE SWIMMER HAS 

ENCOUNTERED 

34@ NEXT K: GO To 4g@ 

345 IF K<4 AND S(K)=2 THEN GO To 615 

347 IF K<4 THEN GO To 34¢ 

35@ FOR L=i TQ 5: PRINT AT Y(K),X(K)} QVER 1 


— 


3 PAPER @3 INK U(K)$" ": FOR M=i To 19: NEXT 
M 

355 PRINT AT Y(K),X(K)3 OVER 13 PAPER U(K)$ 
INK @3" "3 FOR M=1 TO 19: NEXT Mm: NEXT L 


36@ PRINT AT Y(K),X(K)3 PAPER @3 INK MCs" " 
S65 LET P=P+i 
$7@ LET X(K)=98: LET Y(k)=@ 
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386 LET S(K) =a 

49@ REM FISH RANDOMISER 

41@ LET R=INT (RND¥19@)+1: IF RS THEN GO T 
0 586 

415 IF R>é THEN LET R=R-S3 

4260 IF S(R)<>@ THEN GO TO 459 

430 LET S(R)=1: IF RND>.5 THEN GO TO 449 
434 LET X(R)=6: LET YC(R)=INT (RND¥11+19) 

426 LET FS=5: LET M(R)=INT (RND¥2+1); LET DC 
R)=INT (RND¥S-1) 

437 IF R<4 THEN LET FS=?7 

428 LET T#(R)=SH(FS)3 GO TQ 599 

44@ LET X(R)=31: LET YC(R)=INT (RNDELI+1@) ° 
446 LET FS=6: LET M(R)=-INT (RND¥2+1): LET D 
(RJ =INT (RND*¥S3-1) 

447 IF R<S THEN LET FS= 

448 LET TS(R)=SH(FS): GO TO 589 

45@ IF S(R)=1 THEN GO TO 469 

455 LET S(R)=1: IF RND>.5S THEN GO TQ 436 
457 GO TO 446 

46@ LET‘ D(R)=INT (RND¥9-4): LET MCR) =M(R) 2% 
CINT (RND¥3-1)) 

479 LET S(R)=2: IF R<4 THEN GO TO 489 

472 IF SGN M(R)=1 THEN LET T#(R)=S#(5) 

474 IF SGN M(R)=-1 THEN LET T#(R)=S5(6) 

475 GQ TO 592 

4e@ IF SGN M(R)=1 THEN LET T#(R)=S%(7) 

49@ IF SGN M(R)=-1 THEN LET T#(R)=5S%(18) 
50@ FOR K=1 TO 6: IF S(K)=@ THEN GO TQ 699 
51@ PRINT AT Y(K),%(K)3 PAPER @3 INK 435" "2 
LET Y(K)=Y(K)4D(K): LET X(K) =X CK) +M (RK) 

S12 IF Y(K)<5 THEN LET ¥(K)=5 

Si3 IF Y¥(K)>17 THEN LET Y(K)=17 

Si5 IF &ND>.92 THEN LET D(K)=INT (RNDX3-1) 
S20 IF X(K)<@ THEN LET X(K)=31 

S3@ IF X(K)>31 THEN LET X(K)=8 

S90 PRINT PAPER @3 INK U(K)SAT YCK) sX(KIGTS 
(K) 

668 NEXT K: GO TO 79E 

615 REM SWIMMER EASTEN 

625 PRINT INVERSE 13"EATEN BY A SHARK!!!" 
632 POKE 23696,6: POKE 23697,68: PRINT AT Dy 
@; INVERSE 13;"NOQ FISH! YQU’RE THE SUPPER!" 
649 GO TQ 829 

708 PRINT AT @,@5 INVERSE 13" 
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7985 PRINT AT @,93 INVERSE 13 "FISH CAUGHT = " 
3P: IF T=i1 THEN GO TO 299 

719 PRINT AT 1,63 INVERSE 15"AIR LEFT = "5 
AIR 

729 IF AIR<=9 THEN GO TO 899d 

758 GO Ta 28¢ 

saa PRINT AT @,@3" 

825 PRINT P3" FISH BROUGHT BACK FOR SUPPER" 
Sig PRINT "RAN QUT OF AIR..." 

829 PRINT "ANOTHER GO???" 

839 IF INKEYS<>"" THEN GO TO 839 

84a IF INKEY$S="" THEN GO TO 849 

858 IF INKEYS="Y" THEN RUN 

869 IF INKEYS="N" THEN PRINT "THANKYOU FOR 
PLAYING"’ INVERSE 13" S$ C UB A ": STOP 

378 GO TQ 849 

3898 POKE 23696,9: PQOKE 23697,69: REM SCUBA I 
NSTRUCTIGNS 

3919 PAPER @: INK 4: BORDER @: CLS =: PRINT TA 
B1i;"S CUBA "’ 

3d2a@ PRINT "You are a scuba diver on arafta 
Bout to swim off and catch fishfoar supper." 
3059 PRINT *"HOLD DOWN..."’ 

3960 PRINT "S...ToO swim to the left"’"F...To 
Swim to the right” 

39O7@ PRINT "E...To swim to the surface” 
S@#e3g PRINT "X..To swim to the bottom" 
Sigg PRINT ’"You are armed with a hand spear 
and you simply neeed to swim on top of a fish 
to catch it for dinner." 
S119 PRINT ’"Beware of the sharks...they are 
Quite harmless but can suddenly open their mo 
uths and then"’ "become very nasty!” 
3i2g@ PRINT ’"A spear won’t help you against 
sharks..."’*"There’s a max of 3 fish and 3 
Sharks in the sea at any one time.” 
S1SS PRINT ’"Fish may suddenly change course 
or speed if they become randomlypanicky.” 
3298 PRINT *’"When you enter the water you"’"h 
ave 189 units of air in your tanks. You may 
return to the raft as often as you like f 
or more air." 
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2210 PRINT * INK 23"A good diver will get at 
least 20 fish!!!" 

S258 PRINT INVERSE 1°" GOOD LUCK...ENTER 
TQ START " 

3260 LET G=RND: IF INKEYS#<>CHRS 13 THEN GO T 
O 326¢ 

3276 POKE 23696,946: POKE 23647,235: RETURN 
499@ REM CLEAR SCREEN AND PRINT SEA 

4919 BORDER 2: PAPER @: INK 5 

49298 CLS : FOR J=@ TO 3: PRINT AT 3,93 INVERS 
E 1” 7 

4439 NEXT J 

49668 INK 2: PRINT AT 4,265" " 

419@ INK 4: PRINT AT 18,95” oad oo 


411@ PRINT " i 
412@ PRINT "9 ------ ----- - =n ----- " 

413@ PRINT "9 ---------------- ----------- " 

490@ RETURN 

4999 REM ** DEFINED CHARACTERS SUBROUTINE 

5908 RESTORE : FOR K=@ TO 12: FOR J=@ TO 7: R 

EM ¥% K-LOOP PICKS WHICH CHA-RACTER, J-LOOP P 
ICKS THE RELE- VANT BYTE 

5@@8 READ A: POKE 6@256+(K+33)¥8+3,A!: NEXT J: 
NEXT K 

5899 RETURN 

5S@1@ REM ¥¥ >!< SWIMMER RIGHT 1 

5028 DATA G,G,221,63,220,7,8,95 

511@ REM ¥*¥ >"< SWIMMER RIGHT 2 

5120 DATA @,G,29,255,4,4,4,8 

5218 REM ¥*¥ >#< SWIMMER LEFT 1 

522G DATA @,G,187,252,59,224,9,9 

531g REM ¥¥ >#< SWIMMER LEFT 2 

532@ DATA @,8,184,255,32,32,32,9 

S419 REM ¥¥ >%< SMALL FISH RIGHT 

5429 DATA G,G,76,126,124,64,9,9 

S519 REM ¥*¥ >&< SMALL FISH LEFT 

5529 DATA G,6,50,126,62.2,9,9 

561g REM ¥¥ >’< SHARK RIGHT 

562G DATA G,140,196,255,199,128,9,9 

5718 REM ¥¥% >(< SHARK RIGHT OPEN MOUTH 
5720 DATA G,148,191,254,191,128,9,9 

S@ig@ REM ¥* >)< SHARK LEFT 

562@ DATA @,49,125,255,125.1,9,8 

5910 REM ** >¥< SHARK LEFT OPEN MOUTH 
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SF29 
6g1g 
6925 
6118 
6120 
61356 
614g 
Sooo 
AM 

Fags 


DATA @,49,253, 127,253,1,9,98 
REM ¥% >+<¢ SWIMMER LEFT HAND 
DATA 88,83,124,68,68,49,49,46 
REM ¥¥ >,< SWIMMER RIGHT HAND 
DATA 26,26,62,68,68, 28, 28,20 
REM ¥% >-< WEEDS 

DATA 68,124, 68,688,255, 255,68,68 
REM *¥* COPY CHARACTER SET FROM 


BORDER @: PAPER @: CLS =: INK 4: 


68256=255 THEN GO TO 9860 
FRINT "WHEN THIS NUMBER->"’? "REACHES ZERQ 


Pais 
THE 
9O2¢ 


GAME WILL BEGINSQON AFTER" 


FOR *=256 TO 1@223: POKE 6@@9¢+x, 


1G4+%™) 


9O38 


1@23- 


Pads 
9869 


BORDER INT ((%-256)/18@)! PRINT 
M5" "S BEEP .@1,(X-256) /190 
NEXT # 

BORDER @: BEEP .5,12: RETURN 


UP 
UP 
ROM TAR 
IF PEEK 


PEEK (15 


AT 8,185 
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Endings 


Here’s a textual game which is designed to make you delve the depths of 
your geographical knowledge. (And I do mean depths. Did you know 
that Ruteng was a town in Indonesia? Oh well . . ..) Players must think of 
a geographical name which starts with the last letter of the name offered 
up by the player who went before. So it’s you against the computer, who 
from time to time will try to cheat by offering you fictitious names. 
Challenge if you dare! Of course if you’re pushed you can try to cheat 
too, but the computer may well challenge your entry. 


1 POKE 23658,255 
5 REM ENDINGS 

1@ LET ag=" " 

2@ LET L5S=8 

4@ LET Mi=@: LET M2=@ 

5@ DIM GS(13G,11): DIM C(13@): DIM X(139) 

6@ BORDER 4: PAPER 4: INK @: CLS 

69 PRINT INVERSE 13 "CAPS LOCK"; INVERSE @} 
“ MUST BE ON.” 

7@ PRINT “THERE IS A GAME OF GEOGRAPHY ? 
ENDINGS’ WHERE EACH FLAYER IN TURN HAS TO NA 
ME A COUNTRY, TOWN, " 

8@ PRINT "MQUNTAIN,RIVER OR OTHER " 

96 PRINT “GEQGRAPHICAL PLACE-NAME WHICH § 
TARTS WITH THE "3; INVERSE 1; "LAST LETTER" 

198 PRINT "OF THE PREVIQUS PLACE-NAME. " 
11@ PRINT : PRINT “ I SHALL TAKE YOU ON...I 


MAY CHALLENGE YOU IF I DONT THINK YOU AR 
E GIVING ME A REAL PLACE NAME." 
126 PRINT " IF YOU THINK I AM MAKING Ss 


OMETHING UP WHEN IT IS YOUR GO,PRESS <ENTER> 
IF YOU CHALLENGE MY NAME OR ’*? IF YOU WISH 
Ta CHALLENGE ME." 

139 PRINT " I SHALL LEARN AS WE GO.NO PLACE 
MAME MAY BE USED MORE THAN ONCE" 

135 PAUSE 499 

i6S5 LET N=1 

17a READ GS(N),C(N): IF GSIN, TO 3)="2272" TH 
EN GO TO igsg@ 

18@ LET N=N+1:i GO TO 176 


78 Endings 


199 REM DATA HAS NAME OF PLACE FOLLQWED BY L 
ENGTH OF WaRD 

289 DATA "AACHEN".6 
261 DATA “ABBEVILLE",9 
202 DATA "ACAPULCO",8 
283 DATA "ASIA",4 

264 DATA “AUSTRALIA",9 
205 DATA "AMERICA",? 
246 DATA “ANTARCTICA”, 1a 
207 DATA "AMADI",5 

2@8 DATA “ARDLUI",.6 
289 DATA "AVON",4 

218 DATA "AYR",3 

211 DATA “ATLANTIC",@ 
212 DATA "ARLES’,5 

213 DATA “ARNO",4 

214 DATA "BOLIVIA",? 
215 DATA "BALI",4 

216 DATA "BOTSWANA",8 
217 DATA "BELIZE",6 
218 DATA "BELGIUM",? 
219 DATA "BULGARIA",& 
228 DATA "BURY",4 

221 DATA "BAYEUX",6 
222 DATA "BRAZIL",6 
223 DATA "BIARRITZ",& 
224 DATA "BIU",3 

225 DATA "CAIRQ",5 

226 DATA "CASPIAN",7 
227 DATA "CHAD",4 

228 DATA “CHILE",5 

229 DATA "LAS VEGAS",9 
234 DATA “CAMBRIDGE",9 
231 DATA "SWANSEA", ? 
232 DATA "VICTORIA",8 
233 DATA "“WEMBLEY",? 
234 DATA "“WUHAN",5 

235 DATA "WHITCHURCH",9 
236 DATA "TOLEDO",6 
237 DATA "VERSAILLES", 1¢ 
238 DATA "LONDON".6 
239 DATA "YORK",4 

24@ DATA "“ZAIRE",5 

241 DATA "YOKOHAMA",2 


242 DATA "GQSLO",4 

243 DATA "NYANGA",6 

244 DATA "QUITG",5S 

245 DATA "PQORTSMQUTH",1¢ 
246 DATA "SCARBORQUGH", 11 


247 DATA "SWITZERLAND", 11 
248 DATA "SKOQPJE",5 

249 DATA "NALUT",5 

254 DATA "GATAR",5 

251 DATA "RUTENG",6 

252 DATA "RAPID CITY",1¢ 
253 DATA "SPAIN",5S 

254 DATA “PEKING",6 

55 DATA "TAKYQ",5 

256 DATA "RESOLUTION", 19 
257 DATA "“GQLDHAM",.6 

258 DATA "IONA",4 

259 DATA “ICELAND",? 

268 DATA "JAMESTOWN", ? 
261 DATA "“JQINVILLE",9 
262 DATA "ISCHIA",6 

263 DATA "JOMBANG",7 

264 DATA "KYOTQ",;5 

265 DATA "NAGASAKI",@ 
266 DATA “LUNE” ,4 

267 DATA "MOBILE",6 

268 DATA "MONROVIA",8 
269 DATA "LANGON",6 

27@ DATA "KHARTOUM", 38 
999 DATA "Z222",3 
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1@@@ BORDER 5: PAPER 5: CLS : PRINT "PRESS AN 
Y KEY TQ START." 

1@1@ PAUSE @ 

1@2¢ LET GS(N) =" "; LET C(N)=@ 


1936 PRINT "Ete t eee tte t ENDING St ttt ettttetet" 
194@ PRINT : PRINT : PRINT " pa yaqu WANT TQ G 


Q FIRST?(Y/N)" 


19@5@ LET AS=INKEYS: IF As="" THEN 


1469 LET Ps="" 

1967@ IF AS="N" THEN GO TO 2986 
1@8@ IF Ag="Y" THEN GO TQ 3884 
1ge6 GO Ta 195¢ 

2686 REM COMPUTER GQ 

?@1@ LET BS=@: LET BS="" 


GO TO 1@5¢ 
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2920 IF PS<>"" THEN LET BS=PS (LEN PS) 
2836 IF Be="" THEN GQ Ta 2199 

2852 IF RND?>.1 THEN GO TQ 22996 

2635 LET @Q=INT (RND¥(N-1)) 41 

2638 LET W=e¢ 

2940 IF LS®<BS THEN LET G=INT (Q@*RND) 
2642 IF LS®<BS THEN LET G=INT (@/RND) 
2944 LET L#®=G#(@Q,1): IF L#=BS AND X(@)<>1 THE 
N LET PS=G8(@,C(@)): GO TQ 2569 

2059 LET W=Wti: IF W>1@@ THEN GO TQ 2299 
26698 GO TQ 264¢ 

219G REM FIRST GO 

e2elig IF RND>.3S5 THEN GO Ta 2299 

21i5 LET @=INT (RNDK(N-1)) +1 

2126 IF X¥(@)=1 THEN GO TQ 2115 

2125 LET FPS=GH(Q, TA C(@)) 

21isd GQ Ta 259898 

2268 REM COMPUTER MAKES QNE UP! ! 


2205 LET Be=as(1) 
2e2ig IF Be="" THEN LET BS#=CHR&® (INT (RND¥26) 
+65) 


2215 LET @=INT (RNDEN) +1 

2229 LET L#=G8(@,1) 

2225 IF L#&=BS THEN LET P#=G#(Q, INT (RNDKS+1) 
): GO TQ 2249 

2235 GO TQ 2215 

2248 LET @=INT (RNDEN) +1: LET R=S3 

2245 LET FPS=P$+G6S(G,R TO R+(RNDKS) +1) 

2258 LET Q=INT (RNDEN) +1 

2255 LET PS=P$+Gé(G,11-(CINT (RND¥3)+1)) 

2256 IF PS(LEN PS)=" " THEN LET P#=Pa( TO LE 
N P$-1): GQ TO 2254 

2257 LET PS=QS(LEN QS) +PS 

2258 LET Q=LEN PS 

2266 LET BS(1)=Q6(LEN @H): LET L5S=1: GO Ta 25 
OS 

2598 REM COMPUTER PRINTOUT NAME 

2510 PRINT : PRINT PS 

2529 LET AS=INKEYS: IF As="" THEN GQ TQ 2529 
2538 IF CODE A#=15 THEN GO TQ 2869 

254@ IF At="*" THEN GO TQ 2799 

25509 GO TQ 2529 

27090 REM COMPUTER CHALLENGED 

2785 PRINT FLASH 1; BRIGHT 13" YOU DARE TQ C 
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HALLENGE?" 
2718 FOR J=@ TQ 496: MEXT J 

272@ IF L5=1 THEN GO TQ 2789 

273@ PRINT "YOU ARE WRONG.MY NAME IS:": PRINT 
6s(Q) 

274@ PRINT : PRINT “IF YOU DONT BELIEVE ME,LO 
OK IT uP!” 


2759 LET Mi=mMir+i 

276@ PRINT "THE SCQGRE IS "“3Mi3" TQ ME AND "3 
M23" To you." 

2778 LET X(@)=1: LET PS=""s PRINT "YOU START 
MEXT...2e.": GQ TQ 3969 

2789 PRINT "I OWN UP...YQU ARE RIGHT.I MADE I 
Turpin 


2799 LET M2=M2+i: LET P#=""5 PRINT “THE SCQRE 
IS NOW "“sSM1i3" TQ ME AND “sM25" TO YQU.": P 

RINT "I’LL START AGAIN.....~ "s GO TO 29989 

289@ REM COMPUTERS GO COMPLETE 

2819 LET X(@Q)=1: GO TQ 390d 

Sd0qG INPUT QS: IF @S="" THEN GQ TO 3996 

38426 IF PS="" THEN GO TQ 3199 

3e3G LET BS=PS(LEN PS) 

Sg4@ IF BS=GS(1) THEN GO TO 314d 

395@ PRINT INVERSE 15 BRIGHT 15; “ILLEGAL ENTR 

Yeoeseee WRONG INITIALLETTER." 

3@6@ GO TO sda 

219g REM CHECKED AND O.K. 

Siig FOP J=i TQ N 

3126 IF G#(J)=@Q% AND X(J)=1 THEN GO TO 315d 

S13@ IF GS(J)=Q@% THEN LET X(J)=1: GO TO 3300 

31234 NEXT J: GO TQ 329¢ 

3iS@ PRINT “NQT ACCEPTABLE...IT’S BEEN USED B 

EFORE.”": GO TO 3499 

3200 REM DOES THE COMPUTER CHALLENGE 

3216 IF RND>.S THEN GO TO 3239 

3228 GQ TQ 339¢ 

323@ BEEF .5,0: PRINT INK 15 “CHALLENGE! " 

3249 PRINT INK 35 "I DON’T BELIEVE YOU." 

3259 PRINT INK 35 "NOW YQU WILL HAVE TQ BE HO 


NEST BECAUSE IT IS NOT IN MY DATA BANK. " 
3269 PRINT “IS IT A REAL PLACECY/N) ?" 
327@ LET AS=INKEYS: IF AS="" THEN GO TQ 3279 


3280 IF AS="Y" THEN GO TO 3590 
329A IF AS="N" THEN GO TO 3689 
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$295 GO TA 3279 

33590 LET PS=QS: LET GS(N)=PS 

Sli LET C(Nd=12 LET X(N)=1:2 LET N=N+1 

3320 GO TQ 20690 

356g PRINT "OK..I BOW TO YOUR SUPERIOR K 
NOWLEDGE!!"= LET M2=M2+1 

3519 PRINT "THE SCORE IS NOW “sM235" TO ME A 
ND "sMi5" TO you.” 

3526 LET PS="" 

$538 PRINT "“I’LL START NOW.......": GO TO 2089 
g 

36966 PRINT "YOU ARE VERY HONEST. THANK YOU. ” 
361@ LET Mi=Mit+is PRINT “THE SCORE IS NOW “35M 
135" TO ME AND "SM23" Ta you.” 

36290 LET PS="""s PRINT "YOU START NOW.....": G 
Q TQ 384g 
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Snap 


This is a program which puts your micro’s graphics capabilities to good 
use. It’s an educational exercise for the very young, designed to test their 
powers of observation. The computer generates a series of picture cards 
at the bottom of the screen —a bus, a train, a ship and so on — and then 
randomly reproduces selected cards at the top of the screen, and it’s up 
to the players to match up the top picture with the letter representing the 
appropriate picture at the bottom of the screen. 


1@ REM * HIGH RES.PICTURE SNAP @ 
1933 MICHAEL BEWS 
15 POKE 23699,111 
2@ BORDER 6: PAPER 5: INK 1 
25 LET TB=19990: LET Q@%="ZXCVBNM": LET P=9: 
LET R=@: LET T= 
3@ DIM A(7,72) 
4g GO TO 699g 
49 REM * HI RES SCREEN DISPLAY 
5@ CLS : PRINT PAPER 73 INK 13 INVERSE 13" 
HI-RES PICTURE SNAP @1983 M.BEWS"3; INK 23 "TIM 
E: "$TAB 133" CORRECT OUT OF: "SAT 1,305P3 
SS PRINT INVERSE 13AT 18,33"Z"3AT 18,73 "Xx" 
$AT 18, 113"C"SAT 18,155 "V"SAT 18,195"B"ZAT 18 
»238"N°SAT 18,275 "M" 
6@ FOR K=1 TQ ?: FOR L=@ TO 7: FOR M=1 TO 9 
7@ POKE USR CHR® (1434M)4L,A(K,L¥94M) 
75 NEXT M: NEXT L 
8@ LET Y=K¥4-2 
198 PRINT PAPER 73AT 14,Y3 “ABC"SAT 15,Y3 "DE 
F"SAT 16,V3 "GAI"S 
12@ NEXT K 
199 REM ¥X GAME DISPLAY ROUTINE 
21@ PRINT AT 4,213" "SAT 6,145" "SAT 
7, ids" "SAT 8,143" as 
228 PRINT AT 20,8; PAPER 73 INK 23 INVERSE 1 
;"PRESS THE CORRECT LETTER AS SOONAS YOU RECO 
GNISE THE NEW PICTURE” 
234 LET N=1+INT (RND¥?) 
249 FOR L=@ TO 7: FOR M=1 TO 9: POKE USR CHR 
$ (1434+M)4+L,A(N,L¥9+M) 2 NEXT Mt NEXT L 
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259 LET X=26G+INT (RND¥59@): FOR C=1 TO X: N 
EXT x 

268 PRINT PAPER 73AT 6,143 "ABC"ZAT 7,145 "DE 
F"SAT 8,145 "GHI"§ 

265 LET TA=9 

27@ LET A=PEEK 23556: IF A=255 THEN LET T=T 
+1: PRINT AT 1,63 PAPER 73 INK 2313: GO TO 27 
5 

272 GO TO 289 

275 LET TA=TA+1:-IF TA=26@ THEN GO TO 299 
277 GO Ta 279 

288 IF A=CODE @S(N) THEN LET R=R41: PRINT A 
T 1,133 PAPER 23 INK 73R: PRINT AT 4,213 INK 
73; PAPER 4;"“CORRECT“3: GO TO 389 

299 PRINT PAPER 23 INK 73AT 4,213 “WRONG! *3 
39@ LET P=P+1: PRINT AT 1,383 PAPER 23 INK 7 
3P5 

319 IF P=1@ THEN GO TO 499 

328 FOR X=1 TO 2@@: NEXT X: GO TO 219 

399 REM XEND OF GAME ROUTINE 

499 REM XEND OF GAME ROUTINE 

419 IF TB>T THEN LET TB=T 

429 PRINT AT 19,93 INK 73 PAPER 23 "YOU HAVE 
"$R5" CORRECT OUT OF 19 IN“SAT 11,93"TIME "3T 
3". BEST TIME SO FAR "3TB; 

43@ INPUT FLASH 1; "PRESS<ENTER>FOR NEXT GAM 
E"y Xs 

449 LET R=9: LET T=9: LET P=9 

459 PRINT AT 16,83" 


469 PRINT INK 73 PAPER 2;AT 1,65" 
$AT 1,305" "5 

478 GO TO 219 

598 STOP 


599 REM X¥INITIALISATION 

699 CLS : PRINT PAPER 73 INK 13 INVERSE 15" 
HI-RES PICTURE SNAP @1983 M.BEWS" 

619 PRINT AT 2,93 PAPER 73 INK 45 FLASH 15"I 
NITIALISING"3 FLASH &$ INK 13 INVERSE I1;AT 4, 
@;"THIS PROGRAM ALLOCATES SEVERAL HIGH RESG@ 
LUTION PICTURES TO THE "Z°-'’M’ KEYS. 

"SAT 9,93"AFTER A SHORT DELAY, ONE P 
ICTURE IS DISPLAYED AT THE CENTRE OF THE SCR 
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EEN. YOU MUST QUICKLY PRESS THE CORRECT KE 
Y TQ SCORE. " 

626 FOR X=1 TO 7: FOR Y=1 TQ 72: READ AC(X,Y) 
> NEXT Yi NEXT X 

656 GQ TQ 59 

998 STOP 

S99 REM **¥ship 

1996 DATA 4,9,9,4,9,8,15, 255, 224,9,9,86,3,128, 
B,9,9,59,6,4,9,3,128,38,6,9,409,60,9,9,15,255,3,95, 
G.G.G,B,Gg15, 255, BBB G59, G9,9,65, 255, 252,9,9 
»4,8,9,8,635,255, 248,6,9,8,8,6,8,31, 255,249,909, 
GiB 

1d@? REM **helicopter 

141@ DATA 9,9,4,8,7,128,8,255,252,9,0,0,08,12, 
192,6,5, 0,848, By 96,24, F6,9.8,9,0,5,9,127,249,— 
112,9,4,0,8,8,9,111, 255, 224,09,9,9,0,127,249,3 
7255,192,0,8,0,9,2,68,8,127,128,9,9,.9,9,2,5,G, 
6,4,9,9,8 

igi? REM **bus 

1424 DATA B,8,6,8,9,9,49,1,224,06,9,9.63,255,2 
52,.29,0,192,8,8,98, 36,16, 84,9,9,9,;9,9.9, 36,16, 
B4,9,9,6,9,49,8,36,16,284,9,6,9,9,9,0,63,255,21 
4,9,8%,9,59,8,8,63,255, 214,8,4,8,9,48,9,127,255, 
214,94,9,¢9 

1@27 REM **railway engine 

1G@3@ DATA 9,9,9,12,3,128,7,131,192,9,9,9,12,1 
95,128,3,1,128,9,8,9,31,255,128,9,9,0,9,9,9,3 
1,255, 246,8,6,G,G,G,8,51_, 255,249,959 ,9,9, 3,24 
@,31,255, 2446,0,09,8,8,2,128,15, 255,246,9,0,90,1 
2,2,128,31,255,249,9,9,.9 

1@3° REM **car 

1444 DATA @,9,9,96,127,8,12,9,24,6,9,9,G,132,1 
28, Dy Ay Ge Dao Gy Gy 1545645055195 9583 G5 2545 325558, 
@,9,9,9,127,255,255,0,0,6,8,9,8,63, 255, 255.9, 
@,9,9,9,9,127, 255, 254,9,96,4,9,60,90,38,8,69,9,9 
Pn 2) 

1949 REM **#¥tank 

1458 DATA 9,6,9,64,3,9,51,51,48,9,9,9,64,255, 
8,43, 255, 249,8,8,4,45,255,128,12,264,192,9,95, 
8, 467,8,255,9,9,8,64,8,9,779,255,192,9,9,9,64,9 
74,255, 255,249,0,4,4,64,0,0,255,255,248,9,9,8 
»64,9,9,127, 255,252,9,9,98 

1@5? REM ¥*clock 
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1G6@ DATA 9,9,6,9,64,144,8,66,16,9,9,8,8, 32,1 
6,8, 24,16,9,9,9,8,16,16,8,9,16,15, 255, 249, 19, 
15, 89,15, 255, 249,8,6,16,8,8,16,9.8,8,8, 24416, 
B,F,16,8,9,4,8,66,16,9,9,144,9,8,8,8,8,16,8,8 
:16,9,9,8 


—__— 


87 


Paypackets 


Anyone who runs a shop or small business will find this program 
something close to invaluable. It’s Friday, you’ve worked out how much 
everyone is getting paid and the time has come to make up the wage 
packets. How many, of what note and what change are you going to 
need? Well, key this in and all your problems are solved. The program is 
relatively short, completely reliable and of course you don’t have to own 
a business to use it. It will work with any sum — from thousands of 
pounds right down to the expenses for the local church fete, or individual 
small prizes for the children’s party. 


1 REM PAYPACKETS 
BY H. WALWYN 
FOR THE COMMQDORE 64 
CONVERTED F 
QR THE 16/48K SPECTRUM 
BY ANDY GREEN 
1@ REM C#(X,12)=NAME OF CURRENCY 
12 REM CV(X)=CURRENCY VALUE INFOUNDS 
14 REM CA(X)=AMQUNT OF UNITS REQUIRED OF T 
HIS CURRENCY 
16 REM CB(X)=TOTAL AMOUNT QF UNITS REQUIRE 
D OF THIS CURRENCY 
1@ DIM C#(11,12): DIM Vill): DIM Ait): DIM 
Bit) 
29 FOR J=1 TG ti: READ C#(J),V(3): NEXT J 
25 DATA "QNE PENCE",@.@1,"TWO PENCE",@.@2 
39 DATA "FIVE PENCE",@.95, "TEN PENCE",@.1,”" 
TWENTY PENCE",@.2 
4a DATA “FIFTY PENCE",@.5, "ONE POUND",1, "FI 
VE FOUND",S 
S50 DATS "TEN POUND",1@, "TWENTY FOUND", 20, "F 
IFTY FOUND", 5¢ 
6@ TET SR=@: LET XX=@: LET D#="" 
198 PAPER @: CLS : BORDER 1: INK 6 
15@ GO SUB 5a@ 
155 INK 6 
16@ INVERSE 1: PRINT AT 2,83" ENTER FOR 
NEW PAYMENT " 
165 PRINT " SPACE TO GIVE THE TOTAL AMOUNT ” 
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PRINT " DELETE TO CANCEL ALL DATA x 
is@g INVERSE @ 
99 REM **¥GET AN INSTRUCTION KEY 
OS LET AXE: LET SR=1 

@ LET AS=INKEYS: IF AS="" THEN GO TQ 214 
@ IF AS=CHR# 13 THEN GO TO 3da 

@ IF AS=CHRS 12 THEN RUN 
46 IF As=" " THEN GQ TQ 4¢4¢ 

259 GQ TO 21g 

See LET FACKET=98: INK 3: PRINT AT 9,903 FLASH 
1; "CASH AMQUNT IN PACKET?"3: GO SUB SOE: FR 
INT " "7AS 

3198 FUINT AT 8,85 "CASH AMOUNT IN FACKET "3 AS 


N 
Q 


Kh) ND AD BD 


ta ND es 


a) 


S29 LET A=VAL AS: LET AIL=A 

S3¢@ CET PACKET=1: PRINT FLASH i; “NUMBER OF 
FACKETS? "32> GQ SUB 99@a: PRINT " "SAS 

349 PRINT AT 1,4: "NUMBER OF PACKETS "sAS5”" 


ce@ LET B=VAL AS: LET B1=B 

34¢ GQ SUB sad 

S?@ CLS : GO TOG 1i5¢ 

3997 REM *¥* TOTAL FIGURE 

Fig LET Kx=1 

42@ CLS : GO TO 15¢ 

499 REM *¥*% PRINT QUT TARLE 

308 LET AT=¢ 

Sig PRINT AT 5,45 INK 23 "----------- rrr rrr 
325 PRINT INK 53 BRIGHT 13 "CURRENCY";TAB 14 
OF UNITS"$TAB 26; "AMOUNT" 

33a PRINT 

335 FOR J=1 TO 12: INK 3: POKE 23692,255 

S36 IF J<>i2 THEN GO Ta 54a 

S37 FRINT TAB 2135 "-------- =" 

958 PRINT TAB 1435 "TOTAL: "3 

339 LET AS=STRS (AT): GQ TO 5ea 

S45 PRINT C(I) 5 

S50 LET C=LEN (STR® (INT (ACJ)))) 

S51 IF &x=1 THEN LET C=LEN (STR® (INT (B(J) 


Zz 
5 


SS? IF XX=1 THEN INK 4: PRINT TAB 22-C3B(JI) 
's GO TQ S71 
9698 INK 4:5 PRINT TAB 18-C3ACJ)i 
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S76 LET AS=STRS (ACT) EVI) ) 


S71 IF xX=1 THEN LET AS=STR® (B(J)¥V(J)) 
or4 IF xAx=1 THEN LET AT=AT+B(J)¥V(J): GQ TQO 
nee 

S75 LET AT=AT+A( II #HVGI) 

Se@ LET D#="") LET N=@: FOR F=1 TO LEN AS 
a9°9 LET BS=AS(K)} 

60@¢ IF B=" " THEN GO TO 465¢ 


Si@ LET DS=DS+BS 

613 LET FL=G: FOR X=1 TO LEN D&S: IF CQDE D> 
47 AND CODE DS<Sca THEN LET FL=1 

614 NEXT X; IF FL=@ THEN GO TQ 628 


615 IF Bs="." AND VAL DS<i THEN LET DS="9@"+ 
DS 
620 IF Be="." THEN LET Nel 


650 NEXT K 
666 IF N=a@ THEN LET DS=DE+". 96": GO TA Pad 


67Q LET A=LEN D&: IF D&(A-1)="." THEN LET D 
S=Ds+" a" 

of REM ** STRING COMPLETE 

7@e INE 3S 


Fig LeT A=LEN DS 

729 PRINT TAB 39-Aj; DS 

738 MEXT J 

P4a¢ IF SR=G@ THEN GO TO 758 

Y4i IF XxX=i THEN INK 4: PRINT INVERSE 13 "T 
HIS IS THE RUNNING TOTAL";AT @,@3): GO TQ 758 
742 IF XM=O THEN INK 6: PRINT ’3 INVERSE 13 
sBig" K ENG AILS 

Yo@ RETURN 

SOO REM ** CALCULATE AC») 

61a LET X=@: LET A=A*¥1G@: FOR J=11 TO i STEP 
=f 

B20 LET Atti=a@: IF X=1 THEN GO TQ 859 

B2q@ IF (A-V(J)¥19@)<@ THEN GO TO 85a 


835 LET A=INT (A-INT (VC J) ¥19G@.0gdggeg1)): IF 
A=8 THEN LET X=1 
B36 REM ¥* FREVIQUS LINE PREVENTS DECI 


MAL FLACE QVERFLOW ERROR 

8409 LET AC(J)=ACJ) +1: IF X=@ THEN GO TO S3¢ 
BSG NEXT J 

@6o FOR J=1 TO 1M: LET AC J)=A(J)¥B: NEXT J 

87@ FOR J=1 TO 14: LET B(J)=B(J)+A(J) 2 NEXT 
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sea RETURN 


8999 REM *¥*¥ NON-CRASHABLE NUMERIC INPUT 
998@ INPUT LINE AS: LET FL=@: LET FL2=@: LET 
DF=e 

Fags IF At$="" THEN GO TO 99GE 


9ea1ig FOR M=1 TO LEN AS: IF CODE AS(N) =446 THEN 
LET FL2=FL2+1: LET DP=x 

GO2@ IF (CODE AS(NX)<48 OR CODE AS(X) 257) AND 

CODE AS(#}<4>46 THEN LET FL =i 

COIEG@ NEXT X: IF LEN AS-BP*>2 OR FL GR FL2>i O 

8 LEN AS?6 THEN BEEP .5,-3:5 FPRINT #15 FLASH 
;"PLEASE REINPUT": PAUSE 5S@: BEEP .a@27,127: GO 
TO 98a 

9ag45 T= PACKET THEN IF DF GR LEN ASS2 THEN 

LET FL=1i: GO TO 9a@ne@ 

9G4S RETURN 
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Newmarket 


This is another game with an equestrian flavour, except this time around 
you'll require the skills of a budding Lester Piggot. There are eight 
horses in the race, and two things will happen once you have decided 
which one you want toride. Firstly, all the other horses will gallop off at 
the start, leaving you floundering at half speed. You soon discover that 
your mount is one of those creatures that only pulls its weight when the 
finishing line is in sight and then it will go twice as fast as anything else on 
four legs. 


The second problem is that the other horses have a (cleverly computed) 
desire to crowd you out of the action. They will tend to close up in front 
of you and even steer straight at you from the side! There’s no steward to 
protect you in this race, so aim for a gap in the field and hope you will be 
fast enough to avoid trouble. Any horses colliding with each other are 
flung randomly sideways and backwards, thus losing valuable speed. 
OK, you’re under starter’s orders .. . 


1 REM NEWMARKET .....2.2. WALWYN 
2 REM HORSERACE GAME 
S DIM a(7): DIM bt(7): DIM x(7): DIM y(7): 
i@ LET c=¢ 
15 BORDER @ 
26 PAPER 7 
25 INK @ 
3¢@ LET slo=3: REM ¥factor to slow movement 
Ss increased 
4@ GO SUB iseg 
36 GO SUB 389¢ 
85 INK @ 
98 CLS 
92 FOR x=@ TO 6: INK x 
93 PRINT AT 2+X¥3,905STRE (X+1)5" DEF” 
94 NEXT X 
9S INK @: FOR X=@ TO 21: PRINT AT X,3835" "2: 
NEXT X 
96 INK @5 PRINT AT 6,835" Controls 7=UP 6 
DOWN ve 
9? INFUT "Select your horse 1-7 "Shs 
98 IF hS<"1" OR h#¥>"7" THEN GO TO #7 
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99 LET n=VAL (h®): LET acc=(28-ABS (4-n))/3 


4 


199 LET k®=INKEY#: LET m=INT (RND¥?74+1) 
192 IF m=n THEN GO TO 19¢ 


195 IF k#="7" GR k#="6" THEN LET m=n: GO TO 


1iS¢ 


118 LET k#="7": IF RND>.S THEN LET k#="6" 


126 IF x(m)>x(n)-2 THEN LET k#="7": IF y(n) 
>y(m) THEN LET k#="6" 
158 IF k#="7" THEN LET y(m)=y(m)-1: IF y(m) 
<1 THEN LET y(m)=1 
169 IF k#="6" THEN LET y(m)=y(m)4+1: IF y(m) 
>28 THEN LET y(m)=2¢ 


165 LET x(m)=x(m)-1/slo 

189 FOR i=i TO ? 

185 LET j=INT (RND¥4+1) 

198 IF i<>n THEN GO TO 249 


266 IF c=8 THEN LET j=j¥acc: IF x(n)>9 THEN 


LET c=i 

295 IF c=1 THEN BORDER 2: LET c=2 

218 IF c=2 THEN LET j=j¥2 

248 LET x(id=x(i)d+j/slo: IF x(i)>28 THEN 


T x(i)=28 


~~ 


259 NEXT i 

4900 LET crash=9 

419 FOR i=1 To 7 

426 FOR j=i TO 7? 

439 IF i=j THEN GO TO 559 

449 IF y¥(id<>y¥(j) THEN GO To 559 

4539 IF ABS (x(i)d-x(j))>3 THEN GO TO 55¢ 
468 LET d=1: IF b(i)>b(j) THEN LET d=-1 
479 LET ytid=yi)-d 

475 LET y(j)=y(j) +d 

489 IF y(iid<1 THEN LET y(i)=1 

490 IF y(i)>2@ THEN LET y(i)=29 

S09 IF y(j)<i THEN LET y(j)=1 

Sig IF y(j)>2@ THEN LET y(j)=28 


LE 


S38 LET x(j)=x(j)-INT (RND¥S5+1 )/slo: IF x(j 


<2 THEN LET x(j)=2 

[49 LET crash=1 

2508 NEXT j 

569 NEXT i 

S7@ IF crash=1 THEN GQ To 499 
6096 FOR i=1 Ta ? 
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6198 PRINT AT INT bi), INT acids” 7 

615 INK i-1l 

618 LET h#="DLF": IF x (id) -INT (x(i))>.5 THEN 

LET h®="A8C" 

628 PRINT AT INT yi), INT x¢Cilsh® 

625 IF x(i)>=28 THEN GQ TQ See 

638 LET atcil=x ci) 

635 LET blil=yi) 

649 NEXT i 

7ae@ GO TO 198 
198G@ REM ¥#** Instructions #X#*+* 
1@1@ CLS : PRINT AT @,1@3 "NEWMARKET": PRINT 
1928 PRINT "In this horse-race game, you" 
1@3@ PRINT "ride any horse from 1 to 7." 
194@ PRINT "You must steer a path avoiding " 
1i9@S@ PRINT "the other horses since any horse" 
1@6@ PRINT "in a collision with another will” 
1976 PRINT "be blocked and forced sideways” 
1@6@ PRINT "and backwards.” 
1999 PRINT : PRINT ""’Easy’, you might say...” 
111@ PRINT “BUT your horse is a very s-l-o-w" 
1126 PRINT “starter and will only run at " 
1138 PRINT "speed after the screen border " 
1135 PRINT “turns "5: PRINT PAPER 23 "RED"3: 
PRINT *. This occurs when you" 
114@ PRINT "have ridden a third of the way” 
115@ PRINT "down the track, so you will " 
1168 PRINT “always have other horses in " 
11798 PRINT "front of you.” 


1171 PRINT AT 24,95" Press any key to conti 
nue ss 
1172 LET ze=""i LET z®=INKEYS: IF z#="" THEN 


GQ TO 1172 

1175 CLS : PRINT AT 8,8;5"To make it harder st 
ill, all” 

1177 PRINT "horses within 26 feet of you " 
1188 PRINT "will attempt to block your path" 
1182 PRINT “or crash into you! ": PRINT 

1185 PRINT “Push number 46 to move down the" 
1187 PRINT "screen and number 7? to move up" 
119@ PRINT "the screen. BEWARE: any course” 
1192 PRINT “alteration will also reduce your” 
1195 FRINT “speed!” 

1197 PRINT 
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126@ PRINT " Good Luck! - 
PRINT : PRINT " Press any key to start 
121@ LET z$=""s LET z$=INKEYS: IF z%="" THEN 


Ga TO 1218 

122@ RETURN 

zg@eaq@ REM ¥¥ set up horse graphic ** 
39@@5 FOR i=@ TO 7: READ ar 
3@1@ POQKE USR "a"+i,gr 
S@20 NEXT i 

3S1i@S FOR i=@ TQ ¥: READ gr 
311@ POKE USR "Bb" +ti.gr 
S126 NEXT i 

3295 FOR i=@ TO 7: READ gr 
S219 POKE USR "c"+i,gr 


S228 NEXT i 

3305 FOR i=@ TO 7: READ gr 
3319G POKE USR "d"+ti,9gr 
S328 NEXT i 

3465 FOR i=@ TO 7: READ gr 
S41i@ POKE USR "e"+i,9r 
S429 NEXT i 


4 
4 
S565 FOR i=@ TQ 7: READ gr 
S51@ POKE USR "f"+i,gr 
S526 NEXT i 

S9GH DATA G,9,9,12,3,3,5,198 

3P1G DATA 8,12, 26,113,255, 254,1,1 

3728 DATA 6,128,224, 144,192,128, 64,32 

S393G DATA G,8,1,195,63,63,39,8¢d 

3940 DATA 1286,196,174,153, 252,224, 28, 34 

3958 DATA G,8.,9,9,59,9,9,9 

4qgea REM ¥X% set up screen positions ** 

4@id FOR g=1i Ta 7? 

44270 LET a(qg)=2: LET x(q)=2 

9936 LET b(q)=g*¥3-1: LET yvy(q)=b6q) 

4949 NEXT g 

4058 RETURN 

S966 REM ¥¥* winner X*#* 

S@@S PAPER i-1: INK (?7XINT ((7-i)%2/7)) 

E@1@ IF i=n THEN GO TO 593g 

5915 PRINT AT @,@3" The Winner....Horse Numbe 
(emerge fi Ver Sarr " 

D428 GO TO 5649 ; 

Sa@39 PRINT AT 8,03" You won! Well done 
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5@35 REM ¥flash* 
5448 FOR g=1 Ta s@ 

5445 PRINT AT y(i),x(i)3 FLASH 13 "DEF" 
S@5@ NEXT q 


Si@@ PRINT AT 21,983" Press any key to piay 
again ss 

SiS@ LET z$=""; LET z$=INKEYS: IF z$="" THEN 
6a TO S138 

S1i5@ RiuN 


BOISE REM KHEKKKXKHKKKK KKH KKKKK KEKE 

464i REM 

6926 REM To alter the fortunes of the game tr 
y the following: - 

6o@3q0 REM vary slo in line 38 

6949 REM vary the speed of your horse relativ 
e to the others by changing j in lines 2@@-2?1 


ce 
g 
6956 REM alter the point at which the speed u 
p takes place..e¢.9.¥>5 in line 219 
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Holiday Expenses ask) 


Calculate all your currency needs fora trip through several countries. 
Approximate exchange rates are included for 19 currencies and you may 
enter others as you wish. Four currencies are handled at one time by the 
holiday costs and cross-rates pages and there are twelve holiday costs 
categories ranging from hotel bills to phone calls and gifts for the folk 
back home. Enter your anticipated costs in each of the four currencies, 
press a key and see the total in sterling. 


bh 


REM HKHEHHKH HHH HHH KKK HH HHH HHH HHH HHH DOE 
FIN I T LV EC ¥XKKKKKEKKKE 
HOLIDAY EXPENSES 
2 REM ¥¥#---------------- 
3 REM ¥**¥ 
4 REM ¥*¥ 
5S REM 
i@ REM ¥##HOLIDAY EXPENSES @1 
983 MICHAEL BEWS 
15 POKE 23699,111 
26 BORDER 6: PAPER 7: INK 1 
25 LET Et=" 1 5 19 28 5SMigg5ag" 
38 DIM C#(12,5)!: DIM C(13,4): DIM NS(4,3): 
DIM R(4) 
35 LET CF=@: LET TF=@: LET VF=@: LET N=1: L 
ET CY=1: LET FG=@: LET T=@ 
4a GO TQ 68¢ + 
49 REM ¥*#RATES DISPLAY 
5@ INK @: CLS : PRINT INVERSE 13" HO 
LIDAY EXPENSES 7 
6@ PRINT "£STG"3TAB S3NS(1)3; TAB 123N8(2)5TA 
B 193N$(3)3TAB 263N%(4) 
74 PRINT AT 1,943 QVER 13" 


8G FOR X=1 TO 7: LET ZS$=ES(X¥3-2 TO X¥3): P 
RINT AT X+1, 83285 "="5 
99 FOR Y=1 TO 4 
194 LET QS=STRS (R(Y)I¥VAL ZH) 
11@ GO SUB 3ad99g 
12@ PRINT AT X+1,Y¥?-35@;3 
13@ NEXT ¥ 
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146 NEXT x 
15@ PLOT 31,167: DRAW INK 13 OVER 138,-63 
16@ PLOT 87,167: DRAW INK 13 QVER 139, -63: 

PLOT 143,167: DRAW INK 13 OVER 139,-63: PLOT 
199,167: DRAW INK 13 QVER 1354,-63 
178 PRINT AT 9,@3 INVERSE 13" 1 2 3 

4 ae 
186 PRINT INK 1;AT 26,83 INVERSE 13 “ENTER 2 
COLUMN NUMBERS (eg 32) TO DISPLAY CROSS-RAT 
ES ("3 (NSC 2) 5 "/ "5 (NB CLI DGD" 
185 BEEP .1,19 
189 REM ¥CROSS RATES CALCULATOR 
194 INPUT INK 13 INVERSE 13;“OR ENTER ’M’ FO 

R MENU" 3X 
209 IF X#="M" THEN GO TO &5¢ 
205 IF xX$="" THEN GO TO 349 
219 IF LEN X#<>2 THEN GO TO 189 
22@ LET F=VAL X#(1)-1: LET S=VAL X#(2)-1 
225 IF $<@ OR S>4 OR F<@ OR F>4 THEN GO TO 

1ag 
23@ IF S=@ THEN LET @=R(F): LET J#=Ne(F): L 

ET K#="STG": GO TO 269 
235 IF F=@ THEN LET @=1/R(S): LET J#="STG": 
LET K$=N#(S): GO TO 268 
248 LET @=R(F)/R(S) 

259 LET J$=NS(F): LET K#=N&(S) 
268 LET M=1 
265 IF @<.@1 THEN LET @=@x19: LET M=Mx1@: G 

0 TO 265 
278 LET Q$=STR# @: GO SUB 3699 
280 LET C=@: PRINT AT 11,83 PAPER 63S#3S835% 

jS8jAT 11,95" "$IS$TAB 115KSSAT 11,93 OVER 13 


29@ FOR X=1 TO 7: LET Z=M¥VAL ES(3¥X-2 TO 3* 


3@@ LET Q=CK¥VAL ES(3¥X-2 TO 3*x) 
3@5 LET Q#=STRS @Q 

31@ GO SUB 39989 

32@ PRINT AT 11+X,1$ PAPER 63Q@;TAB 93"= "3Z 
33 NEXT X 

335 PLOT 9,88: DRAW INK 2;@,-65: DRAW INK 
23128,0: DRAW INK 239,65: DRAW INK 23;-128,9 
: PLOT 64,88: DRAW INK 2:9,-65 

339 REM ¥¥CROSS RATES(ANY AMNT) 
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349 PRINT AT 28,93;S#;AT 28,93 INK 25 INVERSE 
13" ENTER ANY AMOUNT OF "3 (3%)35" GR "5 (KBS)5" 
TO SEE EGUIVALENT. eg "$(IJ#) 5 "S985 " 

345 BEEP .1,29 

359 INPUT INVERSE 15;"0R ENTER ’M’ (MENU) "5 US 
352 IF Us="M" THEN GO TQ 858 

355 IF LEN Us$<4 THEN GO TQ 1898 

369 IF US( TO 3)=K# THEN LET Y=VAL US(4 Ta 
): LET Q@#=STRB (¥¥C/M): GO SUB 38gG: LET X=Q: 
GO TQ 399 

3°88 IF US( TO 3)=J# THEN LET X=VAL US(4 TO 
): LET @#=STR#® (xX¥M/C): GO SUB 3888: LET Y=Q: 
GO TO 39¢ 

339 GO Ta 189g 

39@ PRINT AT 12,163" "$J$5S TAB 255 K#35 " "SA 
ae pe a hr a "$AT 13,163X5 TAB 2435 
Y3 PAPER 63AT 15,185 "Press’ENTER’to"3AT 16,18 
;"continue here.” 

395 GO Ta 188 

399 REM ¥¥CQST SPREADSHEET 


469 CLS : PRINT INVERSE 13" HOLIDAY 
EXPENSES 

485 PRINT TAB 193"M"$TAB 163 "N"$TAB 223 "0"5T 
AB 283"P" 


410 PRINT "CHARGES"S TAB 95N#(1)3 TAB L155NH(2) 
STAB 215N#$(3)5 TAB 275NH (4) 
415 PRINT QGVER 1;5AT 1,985" 


417 PRINT OVER 1I5AT 2,95" 


426 PLOT 59,167: DRAW INK 15 GVER 1598,-119 
439 PLOT 111,167: DRAW INK 13; OVER 156,-119 
>: PLOT 159,167: DRAW INK 13 OVER 1398,-119: P 
LOT 287,167: DRAW INK 13 OVER 159,-119 

448 FOR xX=1 TO 12: PRINT AT X+2,85CHR® (X+64 
5" P"3CS(X)S NEXT & 

445 FOR x=1 TO 12: FOR Y=1 TO 4: PRINT AT X+ 
Z,2+GkV§SC(X,Y)52 NEXT Yi NEXT X 

458 PRINT QVER 15AT 14,05" 


455 BEEP .1,1¢ 

469 IF TF=1 THEN LET TF=8: GO TO 569 
489 IF CF=8 THEN GO TO 539 

495 LET CF=8 


Holiday Expenses 99 


S46 PRINT AT 29,93 INVERSE 13 “ENTER CHARGE C 
ODE LETTER TOGETHER WITH NEW NAME ( eg BTOURS 

) nu 

S@5 INPUT INVERSE 1i3;"OR ENTER ’M’ FOR MENU 
"§3XS: IF X$="M" THEN GO TQ 85¢ 


Sig IF x#="" OR LEN X#<¢2 OR X#(1)<¢"A" OR XB( 
1)>"L" THEN GO TO 5985 

S28 LET C#(CODE X#(1)-64)=X#(2 TO ): FOR X=1 
TQ 12: PRINT AT X#2, 8; CHRS (X4+64)5">"F§ CBX) § 


: NEXT X: GO TO 54g 
53@ PRINT AT 28,8; INVERSE 13"TO ENTER A Cos 
T ITEM, ENTER ROW/COLUMN WITH AMOUNT eg AM2 
ga” 

535 INPUT FLASH 1$"OR ENTER ’M’ FOR MENU "3 
X$: IF X$="M" THEN GO TO @5¢ 

53? IF xs="" THEN GO Ta 53d 

549 IF X#(1)<"A" OR X$(1)>"L" OR XB(2)<"M" O 
R X#(2)>"P" OR LEN X#<3 THEN GO TO 53¢ 

545 LET @S=xX#(3S TO ): GO SUB 38@@: LET C(COD 
E X#(1)-64,CODE xX#(2)-76)=Q: PRINT AT CODE X® 
(1)-62,2+6*% (CODE X$(2)-76)58 

550 REEP .1,28 

555 GO Ta 530 

S59 REM ¥X¥CALCULATE TOTAL COSTS 

56a BEEP .@5,13: LET T=@: FOR X=1 TO 4: LET 
C(13,X)=@: NEXT X: FOR X=1 Ta 12: FOR Y=1 Ta 
40° LET 64134 YIHCCLlS, YO4C (4, YS NEXT YO NEXT & 
562 FOR X=1 TO 4: BEEP .@5,25: IF C(13,X)=6 
THEN GO TO 564 

563 LET @#=STR® C(13,X): GO SUB 3880: LET c¢ 
13,X)=Q 

564 NEXT X 

565 BEEP .1,28: PRINT AT 15,83C(13,1)3TAB 14 
3C(13,2)3TAB 205C0(13,3)5 TAB 2650(13,4) 

567 BEEP .1,13: PRINT AT 15,@3"TOTALS"3AT 16 
83" RATE "SAT 17,83" £5TG" 

57@ FOR X=1 Ta 4 

572 PRINT AT 16,1+6¥X$R(X)! LET QG=STRS (C(1 
3,X)/R(X)): GO SUB 3@@G: PRINT AT 17,1+6*%X5Q: 
LET T=T+@ 

S74 NEXT X 

575 BEEP .1,1 

Sag LET @S=STRS T: GO SUB 3080: PRINT AT 18, 
143 "GRAND TOTAL=£";@ 
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59@ BEEP 1,1: INPUT INVERSE 13; "PRESS<ENTER> 
TQ RETURN TO MENU"; x% 

595 GO TO 85d 

69@ CLS : PRINT AT @,75; FAPER 13 INK 73 "HOLI 
DAY EXPENSES" 

665 LET Ss=" 

"; LET B#=CHR 

$ St+CHRE St+CHR S+CHR 3 

61@ PRINT : PRINT " THIS PROGRAM WILL HELP Y 


ou TO CALCULATE YOUR APPROXIMATE FORE 
IGN CURRENCY NEEDS FOR A TOUR THROUGH ONE, 
OR SEVERAL COUNTRIES.” 


628 PRINT : PRINT "INTERNATIONAL EXCHANGE RA 
TES ARE ALWAYS BASED ON THE AMERICAN DOLLAR 
RATE FOR EACH CURRENCY. FOR EXAMPLE, THE STE 
RLING/PESETAS RATE IS FRODUCED FROM THE STG/# 
AND #/PTS RATES." 
6398 PRINT : PRINT "THE DIFFERENCE BETWEEN ’B 
UYING’ AND *SELLING* FRICE FOR CURRENCY NOTE 
S GR TRAVELLERS’ CHEQUES REPRESENTS THE BAN 


K’S *PROFIT’ ON THE TRANSACTION. A SMALL 
COMMISSION CHARGE IS ALSO OFTEN AD 
DED. * 


635 BEEP .1,1¢ 

64@ INPUT FLASH 1; "PRESS <ENTER>"$; FLASH 93 
xe 

65@ CLS : PRINT AT @,7% PAPER 13 INK 73"HOLI 
DAY EXPENSES" 

669 PRINT : PRINT " BECAUSE OF THE USUALLY 
WIDE *SPREAD’ BETWEEN BUY AND SELL QUOTED 
FOR TOURIST RATES, IT IS ALMOST ALWAYS SAF 
ER TQ AVOID MULTIPLE EXCHANGE TRANSACTIONS. ” 
665 PRINT : PRINT "TAKE ABOUT £5/1@ OF SMALL 
DENOMINATION"; BS; BS; BS; BS;CHRS S3CHR® 83 OVE 
Rig" § OVER B35" FOREIGN NO 
TES FOR EACH CQUNTRY YOU WILL VISIT, FOR US 
E ON ARRIVAL. IF YOU ARE DEPARTING FROM A BI 
G AIRPORT THESE ARE USUALLY AVAILABLE FROM 


A BANK IN THE ARRIVALS";BS;BS3 OVER 13 
eee, “"; QVER @3" HALL” 
678 REM PRINT : PRINT " ALSO, SEVERAL CURR 


ENCIES ARE CHEAPER TO BUY BEFORE YOU LEAVE 
HOME AND OTHERS ARE CHEAPER TQ BUY WHEN YOU 
ARRIVE AT YQUR DESTINATION. " 
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686 PRINT : PRINT “THE FOLLOWING TOURIST RAT 
ES ARE INCLUDED ONLY AS A VERY ROUGH GUIDE. 

ACTUAL MARKET RATES WILL VARY, OFTEN QUITE 
WILDLY, FROM DAY TO DAY." 

655 BEEF .1,1¢ 

699 INPUT FLASH 13 "PRESS <ENTER>"3; FLASH @3 
xs 

695 REM * INITIALISE CURRENCIES AND HOLIDAY 
COST ITEMS 

769 FOR X=1 TO 


4: READ N®(X): NEXT X 
795 FOR xX=1 To 4 

1 

eS 


+ READ R(X): NEXT & 
7198 FOR *=1 TO 12: READ C#(X): NEXT X 

749 REM ¥¥X% M NU HX XHKHH 

7O8 CLS : PRINT AT 8,7% PAPER 13 INK 73 "HOLI 
DAY EXPENSES" 

768 PRINT :; PRINT “ THE PROGRAM IS IN 3 SECT 
IONS: ",,TAB 73"1 RATES ENTRY"3TAB 73 "2 CROSS 
RATE CALCULATION": TAB 73"3 HOLIDAY COSTS" 

778 PRINT : PRINT “ FOUR CURRENCIES CAN BE H 
ANDLED AT THE SAME TIME. THE PRESENT 4ARE "$3 


INVERSE 15N%$(1)53 INVERSE @3","3 INVERSE 153N% 
(2)% INVERSE @§3","53 INVERSE 13N#(3)3 INVERSE 
@3","3 INVERSE 15N%(4)3 INVERSE @3". BUT YOU 
MAY CHANGE THESE BY FOLLOWING THE 

PROMPTS" 

789 PRINT : PRINT “SELECT "3 INVERSE 13 "CAPS 

LOCK"; INVERSE @3" (CAPS SHIFT+2).THE CURSOR 

SHOULD ALWAYS BE A “3 FLASH 13"C"3; FLASH @3" 


DURING INPUT” 

798 PRINT : PRINT "CURRENCY CODES SHOULD ALW 
AYS BE THREE CAPITAL LETTERS" 

795 BEEP .1,19 

849 INPUT INVERSE 13"PRESS <ENTER> "3X 

219 GO Ta 12866 

658 CLS : PRINT AT @,73 PAPER 13 INK 73 "HOLI 
DAY EXPENSES" 

S55 PRINT AT 3,8;"% ¥ MENU ¥ ¥" 

868 PRINT AT 7,33"1 RATES TABLE (VIEW ONLY) 


87@ PRINT AT &,33"2 CHANGE RATES/CURRENCIES 
S8@ PRINT AT 9,35"3 CROSS RATES CALCULATION 


899 PRINT AT 16,335" HOLIDAY COSTS TABLE" 
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892 PRINT AT 11,35 "5 


895 PRINT AT 12,33 "6 
sigtae 


°d@ BEEP 


CHANGE A COST CATEGORY 


CALCULATE TOTAL COSTS" 


PRINT AT 14,73 INK 25 FLASH 


15; "PRESS SELECTION" 
Fis LET X=PEEK 23556: IF X=255 OR X<49? OR X> 


34 THEN 


94g IF X=S1 


950 IF X=52 
Poem IF X=53 
S65 IF xXK=54 


GQ TO ?1¢ 
926 IF xX=49 
S3G IF X=5¢d 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


776 GO TQ 85¢ 


17938 STOP 


LET VF=1: GO TO is9@¢ 
GO TO 189d 

GO TO 39 

GO TQ 4948 

LET CF=1i: GO TO 4¢a¢@ 
LET TF=1: GO TO 496 


1799 REM ** Approx tourist rates 


1899 CLS : PRINT INK 25; PAPER 63; INVERSE 135" 
APPROXIMATE TOURIST RATES £STG="3; INVERSE @& 
1865 LET X=27 

181@ PRINT " US® USA dollar";TAB X; "1.52" 
1829 FPRINT " CNS CANADA dollar"sTAB X3"1.87" 
1836 PRINT " FFR FRANCE franc"$;TAB X3"11.6" 
1349 PRINT " BFR BELGIUM(&Lux) france"; TAB X35" 

feat 

1858 PRINT " ITL ITALY lire"$;TAB X3"2265" 
1€6@ FRINT " SFR SWITZERLAND franc";TAB X35" 
o22" 

i374 PRINT " DMK W.GERMANY D.mark";TAB X3 "3. 

64" 

188@ PRINT " ASH AUSTRIA schilling"; TAB Xj3"2 

7.8" 

18?7@ PRINT “ ESC PORTUGAL escudo";TAB X53 "154 
1969 PRINT " SPA SPAIN peseta"3TAB X; "211" 
191@ PRINT “ HFL HOLLAND quilder"; TAB X3 "4.3 

on 

1915 PRINT ” NKR NORWAY krona”"5TAB X3"11.9" 
1924 PRINT " IRP IRELAND punt "$TAB X3 "1.22" 
1938 PRINT " DRA GREECE drachma"3;TAB X3 "128" 
194@ PRINT " MLT MALTA pound";TAB X35 "9.64" 
1959 PRINT " YGD YUGQSLAVIA dinar";TAB X;"12 

pH 

1969 PRINT " YEN JAPAN yen";TAB X3 "367" 

1978 PRINT " AUS AUSTRALIA dollar";TAB X3"1. 
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74" 

198G PRINT “ NZ® NEW ZEALAND dollar";TAB X;" 

2.32” 

1982 IF VF=1 THEN PRINT AT 21,9; INVERSE 13" 
PRESS <ENTER> TO RETURN TO MENU": BEEP .1,19 
; INPUT X#: LET VF=9: GO TO 859 

1985 FOR Y=1 TO 4 

1998 PRINT AT 20,93 FLASH 1}"CURRENCY "3Y5" I 
S "3NS(Y)3". PRESS <ENTER? TO KEEP "$N®S(Y) 3", 
QR ENTER A NEW CODE" 

1995 BEEP .1,1¢ 


2998 INPUT "CURRENCY "3 (Y)5" ("5 CNSCVYI IS" SX 

$ 

2919 IF X$="" THEN PRINT AT 29,635 S85AT 20,93 
INK 23 FLASH 13" PRESS <ENTER> TO KEEP PRESE 

NT "SNSCY)5" RATE: "$R(Y¥)5", GR ENTER NEW RAT 


E":; GO TO 2949 

2929 FOR X=1 TO 13: LET C(X,Y)=9:5 NEXT X 
2925 LET N#(Y)=Xe 

28380 PRINT AT 29,9;S$3;AT 21,93 INK 23 FLASH 1 


3" ENTER THE NEW RATE FOR "SNS(¥)5" . 
294@G BEEP .1,15 
2945 INPUT @&: IF Qs="" THEN GO TQ 2979 


2959 IF CODE a$<48 OR CODE Q@%>57 THEN GO TO 
2845 
2868 GQ SUB 390@: LET R(Y)=@Q 
2878 NEXT Y 
2438 GO TO 85¢ 
2999 REM ¥% NUMBER CLEAN-UP 
ROUTINE 
3@@@ LET @=VAL @%: IF @<1@ THEN LET @=(INT ( 
198*@Q))/199: RETURN 
3919 IF @<19@ THEN LET Q=(INT (18*@))/18: RE 
TURN 
3929 LET @=INT @ 
3838 RETURN 
3999 REM ¥X% INITIAL DATA 
4999 DATA "FFR", "SFR", "USS", “ITL" 
40G5 DATA 11.6,3.22,1.52, 2265 
4819 DATA "HOTEL", "TOURS", "BUS", "MEALS", "FOOD 
", "DRINK", "LAUND", “FUEL”, “POST", "PHONE", "GIFT 
S", "SUNDR” 


104 


Ambush 


High resolution graphics make this forest scene something worth seeing! 
You are trapped by snipers hiding amongst the trees. Your only shelter is 
a low wall. Can you kill all the snipers before one of them succeds in 
shooting you. 


19 REM ¥¥SNIPER AMBUSHX* @19 
@3 MICHAEL BEWS 
29 DIM P(5,5): DIM L(11,2): DIM $(5,2): DIM 
SS (2,2) 
SO LET TB=5990: LET TM=@: LET KS="s99989908 
6": LET MN=@: LET AI=@: LET FR=@: LET Mx=8@ 
4@ PAPER 4: INK 7: BORDER 1 
56 GO TQ 682 
198 REM ¥XKEYEGARD INPUT 
12@ LET TM=TM+i: PRINT INK @3 PAPER 63AT 15 


125 LET A=PEEK 23556: IF A=255 THEN GO TQ 2 
aa 

13@ IF A=65 THEN FRINT AT 13,196; R$:2 LET MN= 
1: GO To 26¢ 

14@ 1F A=9@ THEN PRINT AT 13,16;Q88: LET MN= 
8: GOA TA 209g 

i5@ IF (A=466 AND MN=1) THEN LET FR=1: GO TO 

208 

1lo@ IF A=78 THEN LET MX=Mx-3 

L7@ IF A="? THEN LET MX=MN+5 

is@ GO To 128 

199 REM *XACTION ROUTINE 

21g [5 MAS@ THEN LET MxX=2¢ 

215 IF MX222@ THEN LET MxX=226 


GO Ta 28¢ 
GO Ta 248 


22@ IF =R=@ THEN GQ TO 36¢ 

225 LET FR=d 

238 LET Y=23 

235 IF mMX¥¢42 THEN LET Y=¥+32: GO TO 25¢ 


246 IF MX<7@ THEN LET y=yt?: GO TO 250 
242 IF MX<i24 THEN LET Y=¥+8: GO TQ 25¢ 
244 IF MX<ié4 THEN GQ TO 2i¢ 

248 LET Y="-3 

25 REM ¥TRACERS AND SQUND 
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55 PLOT OVER 1,82,72 

68 DRAW OVER 1;Mx-66,¥ 

62 FOR X=57 To 53 STEP -1: BEEP .@@5,X: NEX 
2 


265 PLOT GVER 1,92,72 
27G DRAW GVER is;Mx-60,¥ 
272 REM ¥CHECK FOR HIT 
275 IF MX>29 AND MX<35 AND K#(1)>"@" THEN P 
RINT AT 5,43 "R5"5 INK @: PAPER 43"G4": LET K@& 
(6)="1": GO TO 29a 

278 IF MX>éi1 AND MX<47 AND K#(2)>"@" THEN P 
RINT AT &,25 "AS" 3 INK Gj} PAPER 43 "GA": LET K& 
(Fl="*iv: GO TO 2e¢a 

2E@ 1F MX>1@1 AMD MX<1@7 AND K#(3)2"@" THEN 
PRINT AT 8,133 "RS"j INK @} PAPER 43 "GH"! LET 
KS(S)="1"2 GO Ta 298 

282 IF MM>144 AND MX¢155 AND K#(4)>"O" THEN 
PRINT AT 9,193"AS"3 INK @: PAPER 43 "GH": LET 
KS(F)="1"5 GO TO 29¢ 

Z65 IF MX>185 AND MxX<195 AND K#(5)>"@" THEN 
PRINT AT 19,24;"AS"j INK @3 PAPER 4; "G64": LE 
T KS(1g)="1" 
289 REM ¥CHECK FOR WIN 


29@ IF K#(6 TO 19)="11111" THEN GO Ta &5s¢ 
299 REM #SNIPER ROUTINE 

wie LET K=1+INT (RND*¥S) 

S15 IF kS(K+5)="1" THEN GO Ta 120 

S28 IF KS(K)="4" THEN PRINT INK @3 PAPER 4 


AT S(K,1),8(K, 2) 3S8(2)3 

339 IF KS(K)="5" GR (ke(k)="7" AND MN=@) THE 
i Go 3UB 4e¢ 

Z49 LET KS(K)=CHRS (CODE K#(K) +1) 

356 IF KS(K)>"7" THEN PRINT INK @} PAPER 4 
AT S(K,1),3¢(K,2)$S8(1)3: LET KS(K) ="@" 

36@ GO Ta 126 

399 REM X¥SNIPER FIRING 

495 LET N=1+INT (RND¥P(K,4)) 

41@ LET NX=N-P(K,3) = 

42@ PLOT OVER 13P(K,1),P(K,2) 

425 DRAW OVER 13NX,-P(K,5) 

$3@ FOR X=5@ TO 47 STEP -1: BEEP .@@5,é: NEX 
Tc 

435 PLOT OVER 13P(K,1),F(K,2) 

44@ DRAW OVER 1j;NX,-PC(K, 5) 
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445 IF MN=@ THEN PRETURN 

45a IF PCR, LI +NXO 7S AND PC(K,1)4+NX<¢846 THEN P 
RINT AT JS3,183QSsAT 15, 95PH3:5 GO TA 839 

4469 RETURN 

O73. STOP 

S°° REM **INITIALISATION 

6G2 CLS : PRINT INK 13; PAPER 73;"A M BU SH 

@i2S3 MICHAEL BEWS"sAT 4,0: "YOU HAVE BEEN 

AMBUSHED BY GUNMENIN A FOREST. THE ONLY SAFE 
PLACE IS A LOW WALL BEHIND WHICH YOU TAKE CQaV 
ER." 

692 FRINT AT £,@: INK 13 PAPER 73 "YOU MUST T 
RY TO RELL ALL GUNMEN BY AIMING OQVER THE TOF 
OF THE WALL. BUT THE SNIFEFS ARE QUITE GOOD 
SHOTS! "3 AT i46,43 "HOW LONG CAN YOU SURVIVE?.. 


o@& LET #$=CHR# 21+CHRS 1+" 
*+CHRS 21+CHRS @ 
418 LET G$=CHRS 21+CHRS 1+" 
"+CHRS 21+CHRS @ 
615 FOR x=9 Td 7: FOR y=1 TO 9: READ a: POKE 
USR CHR (143+y)+4+x,ar NEXT yt NEXT x 
é2@ FOR x=@ TO 7: READ a,b: POKE USR "vV"tx,a 
> FOKE USR "“K"4+x,b: NEXT x 
625 FOR X=1 TO 11: READ L(X,1): READ L(X,2): 
NEXT x 
434 FOR X=@ TO 7: READ A: FCKE USR "4£"4+x,A: 
NEST Mf LET WES"22 020 20 20220000 £0220 1022002000 
“LL” 
648 LET tS="4kO" +44 "DEF "444 "GHI" 
645 LET SS(1)="G64H": LET S8(2)="7K" 
658 FOR X=@ TO 7: READ A: POKE USR CHR® (156 
)+%,A! NEXT X 
655 FOR X=@ TO 7: READ A,B: POKE USR "A"+X,A 
POKE USR "S"+xX,B: NEXT & 
66@ FOR X=@ TQ 7: READ A,B: POKE USR "7"+4X,A 
POKE USR "“"+X,B: NEXT x 
665 LET QS=CHRS 16+CHRS B+CHRS 17+CHRS 4+" 
+GS+"L"4+GSt"4N": LET PS="RS" 
678 LET RS=CHRS 16+CHRS G+CHRS 17+CHRS 4+"7" 
+Gh+t "YU" 4+GSe" 
675 FOR X=1 TO 5: READ $(xX,1): READ S(X,2): 
NEXT X 
68@ FOR x=1 TO 5: FOR v=1 TO 5: READ P(X,Y): 
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NEXT Yi NEXT XX 

69S INPUT INK 7: PAPER 23; "PRESS<ENTERSTO FI 
ND QUT! § ' "3 xg 

7H REM X¥¥PRINT SCENEX* 

PaS CLS : PRINT PAPER 6: INK 13"A M BUSH 

@Gi°Sas MICHAEL BEWS" 

Ya? FOR x=19 TO 26 STEP 4: PRINT INK @3 PAP 
ER 45AT 1,x%tS: NEXT x 

rig FOR x=i1 TO 11:5 PRINT INK @SAT L¢X,1),L¢ 
&,2)5t832 NEXT & 

PiS FOR *=3 TQ 11: PRINT AT L(&,1)+2,L¢%,2) + 
23 INK 65 "7"5:5 NEXT X 

729 PRINT INK @3AT 15,9; T#3AT 17, 33TS 

YIO FRINT INK S3AT 14,83 WS 

89 PRINT AT 13,19:@6 

e635 PRINT AT 15,233 INK @3 PAPER 63 *TIME: 
S1@ PRINT AT 28,63 PAPER 2; INK 73 "SHOQT SNI 
PERS AS THEY FIRE. KEYS’ A&Z’ (UP/DN) ?N&M’ (AIM) 
7E? (FIRE) ” 


REM *¥* PLAYER SHOT! 
@ PRINT AT 24,83 PAPER 73 INK 23" 


9 09 00 
La Pb 
0 


"SAT 28,83 FLASH 1:3 ”"YQU HAVE BEEN § 

HOT! IN TIME: "S$ TMSAT 21,03 "THIS IS THE SNIFFER 
WHO SHOT yau*" 

22 PRINT INK @i PAPER 43 FLASH LiAT S¢K,1) 
sSt(K,2)3S8 (2) 5 

S35 BEEP .&,1: PAUSE 5: BEEP .5,1: PAUSE 2: 
BEEP .2,1: BEEP .G,1: BEEP .5,4: PAUSE 2: BEE 
P .4,3: PAUSE 2: BEEF .4,3: PAUSE 2: BEEF .5, 
1: PAUSE 1: BEEP .8,1: PAUSE 4: BEEF .35,@: BE 
EP 1,1 

£424 GO Ta 3244 

349 REM ¥ALL SNIPERS DEAD 

SEG IF TH>Ts THEN LET TBR=TM 

ESS PRINT AT 2@,@i PAPER 7: INK 25" 


"SAT 24,43 FLASH is "YQU SHOT ALL 3N 
RO IN TIME: "s TMI AT 21,03 "BEST TIME SQ FAR: 


=o? FOR ¥Y=1 TG 3S: FOR X=1 TGQ 1G: BEEF .85,¥* 
2: NEXT XS NEXT ¥ 
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S6@ INPUT INK @) PAPER 73 FLASH 13 "PRESS <E 
NTER> FOR NEXT GAME" 3) X%S 
@ LET Mx=GG: LET Ke="Gon9CeRgag" 
eee LET TM=@: LET MN=@: LET FR=2 
g Ga Ta 706 

9°38 STOP 

999 REM **tree 
ihe mathe Speer he? | 255, 252,0,66,8,3,255,192 
OOS |, 24,55, 247, 248,9,60 
ee ee 359,09,4@,126,255,126 
31,60, 249,59, 60, 138, 127, 255,254, 24,66,438,9,69 
+162,2 5,255, 252,8,698,9,0, 69,160, 127,223, 252, 
@.,69,9,9,60,32 

1dgao REM * sniper 

19igd DATA 4, 252,63, 252,2,124,3,252,6,124, 
2,1,124,2,60 

1@i9 REM *#*tree PRINT AT FILE 

igzo DATA 2,4,1,12,2,6,2,2¢6,35,24,4,11,4,29,6, 
19,6,15,7,21,8,26 

1929 REM ¥*WALL 

1@2@ DATA 31,257,219, 255,252,2595,185,255 
1@39 fem ¥¥MAN CROUCHING 
144a@ OATA 24¢,113,113,33,25 
i@4> REM MAN DOWN 

1228 DATA @,9,0,90,6,6,9,49,169,9, 247,274, 255,2 
41,247,255 

145? REM *MON STANDING 

i@6@ DATA 243,115,112, 255,115, 251,118,255, 38, 
233,238, 251,254, 247,112,255 

iG69? REM *svsiper print at file 

Lere DATA 3,6,8,1%,3.15,9,21,168,26 

lg?79 REM sniper -iring coords 

LaGe NATE 47,127,16,50,54, 79,110,359, 79,37, 119 
1116,60,690,37,16°,192,127,80,27,287,94,200,12 


i 
h) 
cn 


cn 
a 
Lal 
ee 
hy 
td 
is 
rs 
Oo 


i 
aac BORDER 7: PAPER 7: INK @: CLS 
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Numbers 


If you’rea Roman who doesn’t understand numbers to base 3, then this 
is the program for you. Convert between binary, hexadecimal, decimal 
and Roman numerals, plus any other number systems (to different bases) 
you care to invent. 7 fingered aliens catered for! 


19 REM ¥¥ ROMAN NUMBERS ei 
982 MICHAEL BEWS 

15 FOKE 23609,111: POKE 23658,255 

2@ BORDER 3: PAPER i: INK 7 

25 DIM K(8): DIM AS(8): DIM C(25) 

=@ GO TO 55a 

35 GO Tc 558 

3° REM ¥¥ROMAN NUMBERS 

40 LET L=S? cbs 

59 PRINT PAPER 2; "ROMAN NUMBERS @1983 MICH 
AEL BEWS" 

68 PRINT PAPER 2;AT 2,0; "ENTER A COMPLETE 
ROMAN NUMBER EXAMPLE: MCMLX&XIV 

65 PRINT INVERSE isAT 21,0; "PRESS <ENTER> 
TO RETURN TO MENU * 

7@ INFUT "ROMAN NUMBER "3 TS 

75 PRINT AT 24,63" 

ect IF TS="" THEN GO TO 6ag 

96 PRINT AT L,@3" 

“; PAPER 63 INK 2:AT L,@3 "ROMAN NUMBER: 

"3TH; 

95 FOR B=1 TO 3: BEEP .@5,i14: BEEP .@5,1?: 
NEXT B 

19@ FOR x=1 TO LEN TS 

119 LET C(M}=(1@@6G AND TS(X)="M")+(59@ AND T 
S(X)="D"} 4+ (19 AND TS(X)="C")+(58 AND TH(X) =" 
Led+(i@ AND TS(M)="K")4(5 AND TH(MXI="U")D4(1 B 
ND (TS(K)="I" OR Te(xy="1")) 


12@ IF C(*¥)*1 THEN PRINT AT 29,93" "3 FLA 
SH 13" "STS(X)S" IS NOT A ROMAN NUMBER !'": G 
QO T0065 


138 NEXT X& 
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iBa@ LET T=@ 

is@ SOR M=1 TO LEN TS 

2O0@ IF C(mM+1)>C08) THEN LET C(mM) =-C (Cm) 

21@ LET T=T+C (xX) 

220 LET C(x) = 

238 NEXT & 

24¢@ LET M=@: IF LEN TS)? THEN LET xX=1 

25@ PRINT INK 23 PAPER 63" = "SAT Lt, 26373 
255 FOR B=1 TQ 3: BEEP .@5,2: BEEP .@5,1¢: N 
ExT B 


268 LET L=L+2: IF L>26 THEN INPUT PAPER 23 
INK 7; "PRESS*CENTER?>TO RETURN TO MENU"; xs: GO 
TO o@9 

2768 GO Ta 7s 

299 REM VARIABLE BASE CALCULATOR 

Z1i@ CLS : PRINT INVERSE 1; "VARIBASE CALCLLA 
TOR @198S3 M. PEWS" 

S20 PRINT INK 73 PAPER 2:AT 17,63 "CHQQSE AN 
Y BASE BETWEEN 2 AND 24(Decimal equivalent!. 
WE SHALL USE LETTERS ’A to N’ FOR SYMBOLSREG 
UTRED AFTER ° UP TO ONE LESS THAN THE CHQS 
EN BASE VALUE % 

S3@ INPUT INK 73 PAPER @i "ENTER CHOSEN BASE 
(2 to 24)"5%s 

346 IF LEN &$41 QR LEN X#>2 THEN GQ TQ 334 

S38 IF xXs(1)<"a" OR XH$(1)>"9" THEN GO TO 33 
@ 

36@ IF LEN X#$=2 THEN IF X#(2)<"6" OR X#$(2)> 
"9" THEN GO TO 336 

370 IF VAL X#<2 QR VAL X#>24 THEN GO TO 33¢ 

375 LET B=VAL XS 

38G CLS : PRINT INVERSE li "VARIBASE CALCULA 
TOR @198 > M.BEWS” 

2998 PRINT AT 2,83 PAPER 535i INK 1; "BASE: "SA 
T 2,53BiAT 2,253 "Decimal";AT 3,253 "Equivt.” 

S395 LET X$=""2 IF B<i@ THEN LET X#=" "® 

466 PRINT AT 4,@; XSi Bi"SG"|EXBUB; "A" XBIB"L"G 
MBUBS"OMEXSP BEC EXSIBS "BS XSI BE"ANEXBE BE "AE" 

4igd LET KO=99999; IF B=3 THEN LET KQ=6562 

415 IF B=2 THEN LET Ka=255 

24 FOR x®=1 TO 8: LET N=K(X): PRINT AT 4+xX,2 

$"= "SNIAT 44+X, 95: GO SUB 445 

425 FOR Y=3 TO 1 STEP -i: PRINT TAB (25-Y3) 
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sAS(Y) 52 NEXT ¥ 

4i0 NEXT & 

435 Ga Ta 45¢ 

4409 REM ¥MULTIBASE CALC SUBROUTINE 

445 FOR 2=1 Ta 8: LET AS(Z)=""5 NEXT Z 

458 LET NA=N: FOR Z2=1 Ta 8 

4355 LET I=INT (NA/B): LET AS(Z)=CHRS (46+ (NA 
-~BKID+¢(7 AND (NA&-B¥I)>9)) 

468 IF I>=B THEN LET NA=I: NEXT Z 

465 LET AS(Z+1)=CHRS (454+I+(7 AND I>9)) 

47@ RETURN 

4°79 REM ¥DECIMAL INPUT FOR CONVERSION 

48@ PRINT INK 73 PAPER 23;AT 19,03 "INPUT A D 
ECIMAL NUMBER FOR CONVERSIAN 
TO BASE "SAT 24,3858 

4385 PRINT INVERSE 17: "OR PRESS<ENTER?>TO RETU 
PN TQ MENU"; 

49a INPUT FLASH ii "(BETWEEN Lf AND "5 (KQ)5") 
"SHS 

49S IF x$="" THEN GQ TQ 69a 

590 FOR X=1 TQ LEN MS: IF XB(X)<"G" OR XBR) 
>"9" THEN GQ TQ 4909 

5@5 NEXT #: LET N=INT (VAL &S): IF Nei AR N> 
KO THEN Ga TQ 49¢ 
Sia Ga SUB 44¢ 
529 PRINT AT 13,05" 

"SAT 13,93 

530 FaR Y=8 TQ i STEP -i: PRINT TAB (25-Y*3) 
AS(Y) 3: NEXT Y¥ 
540 FRINT " = "SN 
545 GO Ta 438¢@ 
S4& STOP 
549 REM ¥initialisation 
556 CLS : PRINT INVERSE 13 "NUMBER SYSTEMSGL 
9°83 MICHAEL BEWS" 

555 FOR x=8 Ta 7: POKE USR “A*+x,32-32KINT 6 
*/5)+(64 AND X=1): NEXT x 

56@ FOR x=1 Ta 8: FOR y=@ TO 7: READ a: POKE 
USR CHRS (144+™é)4+y¥,a: NEMT y: NEXT x 

57@ FOR X=1 TQ &: READ K(X): NEAT &A 

606 CLS : PRINT INVERSE 13 "NUMBER SYSTEMSGL 
933 MICHAEL BEWS" 

61@ PRINT AT 2,085" THIS PROGRAM EXAMINES A 
FEW OF THE MANY CQUNTING SYSTEMS AND EN 
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ABLES YQU Tad INVENT SQME OF YQUR QW 
Ni 4 
628 PRINT AT 7,53 INVERSE 13" MEN U 
ee ot Sao ROMAN NUMBERS "SAT 
DECIMAL SYSTEM HEA, ede cS 
EM "SAT 12,535 "4 HE*ADECIMAL 
T 13,53"5 INVENT YQUR OWN! " 
INVERSE L3AT 17,8; "SELECT KEY NUM 


PA 


64@ LET A=PEEK 23556: IF A=255 THEN GQ TQ 4 


645 BEEP .@5,2¢9 

658 IF A<49 OR ASS THEN GQ TQ 64¢ 

666 IF A=49° THEN GO TQ saa 

665 IF A=49 THEN GO TQ 49 

6° IF &=Sa THEN GQ TQ 946 

6ee IF A=S5i THEN GO TO Ligd 

690 IF A=S2 “HEN GO TA 1298 

TES IF 4=53 THEN Ga TO 31¢ 

739 REM *¥ROMAN EXPLANATICN 

cea CLS : PRINT PAPER 23 "ROMAN NUMBERS @198 
3 MICHAEL BEWS"” 

Fig PRINT INVERSE 1i3AT 6,9%" IN THE RO 
MAN SYSTEM “ 

B2e PRINT INVERSE ti "M=iqG@e D=s9ae C=ide 
L=5G@ *x=1i1¢ V=5 AND I1 . 
S4@ PRINT INK 23 PAPER 753 "A LOWER VALUE LET 
TER COMING IMMEDIATELY IN FRONT OF A HIGH 
ERVALUE LETTER IS SUBTRACTED FROM THE TQTAL I 
NSTEADB Oe BEING ADDED SQ THAT Lx=6@ AND *& 
Lag 

BS@ INPUT INK Pi PAPER 2: "PRESS <ENTER?> "Gx 


S79 LET RF=1: GO To 4a 

BY REM X¥DECIMAL EXFPLANATICN 

Sea CLS : FRINT PAPER 25 "DECIMAL SYSTEM 

(Base ig)" 

919 PRINT ©: PRINT INVERSE 13 7ORIGIN: Ten f 
ingers and thumbs make it convenient 

to count in groups of ten!” 

CEO PRINT : PRINT IMVERSE i; "METHOD: Allic 
aQunting systems need erough symbols to repr 
esentthe count from zero up to one less tha 
n the base aumber. This means that symbols 9 
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2: 23 4 5 67 2 9 are needed for DECIMAL. Th 
ere is no separate symbol forthe BASE (Ten i 
n the case of Decimal), "35 

GIG FRINT INVERSE 13" the BASE being repre 
-sented by i @ to indicate 1 complete gq 
roun of ten items, oOlus O remainder. 


249 INPUT INK 7: PAPER 23: "PRESS “ENTER? "5 
“S 
9393 CLS : PRINT PAPER 23 "DECIMAL SYSTEM 


(base 19)" 
968 PRINT : FRINT INVERSE 1:3" ’?1 @ @’ ther 
efore means ten groups of ten and ’1i @ @ @’ 


is ten times ten groups of ten or BY are ae oa 2 
x i@ which is the same as 18¢ (10 to the pow 
er of 3). 
C?ad PRINT : PRINT "196 19 1a@f 18D 190€ 168 1 


@A 104" 
P80 PRINT * 1 7) @ @" 
9a PRINT ; PRINT INVERSE 13; "NOTE: ANY NUMB 
ER RAISED TQ THE FOWER OF 1 (eg 168A) tated 
TSELF"SCHRS @3CHRS SICHRS SF CHRS 23 CHRS B23CHR 
$ 8; INVERSE Os QVER 15 "_ BH 
iJg@@ PRINT : PRINT INVERSE 13" AND ANY NUMBE 
m RAISED TOA FOWER @ (eg i@f! IS ALWAYS 1 
1919 PRINT INVERSE 13 "Using this convention, 
-elating ascending powers of the BASE val 
Ue. yOU Can create aA countingsystem to any PA 
SE vou wish! a 
1@fe INFUT INF £i PAPER Fs "PRESS <ENTER? "3 
$: LET Bei@: Go TA 3aea 
i@sag Go TO 40¢ 
ig??? REM XBINARY EXPLANATION 
lige CLS : PRINT PAPER 23s "BINARY SYSTEM 


(Base 2)" 

ili@ PRIN’ ! PRINT INVERSE 1; "MECHANICAL AND 
ELECTRICAL SWITCHES ARE SIMPLEST AND M 
Qa, RELIABLE WHEN THEY HAVE ONLY TWOPOSSIBLE 
STATES, *ON’ AND ’QFF’,”" 

11290 PRINT TNVERSE i: "FFOM QUR NOTES ON THE 
DECIMAL SYSTEM WE CAN SEE THAT BINARY NEE 
DS ONLY TWO SYMBOLS ’S’ ANT "1°? 7Q COUNT UP T 
Oo ANY EQUIVALENT" 
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113@ PRINT INVERSE i; "DECIMAL VALUE. USING 

THE ’QFF* STATE OF A SWITCH OR CIRCUIT TO REP 

RESENT °@? AND THE ’ON’ STATETO REPRESENT 71’ 
ro 


» IT IS FOSSIBLETO REPRESENT ANY DECIMAL NUMB 
ER * 

1149 PRINT INVERSE 13 "USING A CHAIN OF VERY 
SIMPLE TWO-STATE DEVICES. ; 
1145 INPUT INVERSE Fe ee <ENTER>  "FXS 


1iu@ LET Bee: Ga TO seq 

1199 REM *¥HEMADECIMAL EXPLANATION 

12@0) CLS : FRINT PAPER 2; “HEXADECIMAL 

(Base 164)” 

Llid PRINT INVERSE 1:3;AT 5,03" COMPUTERS WORK 
BEST IN BINARY. ” 

1226 FRINT INVERSE i; "UNFORTUNATELY HUMANS D 
Q NOT’ 187DECIMAL IS 19111818 IN BINARY! : 
{2a¢ FRINT INVERSE 1; "THIS COMPUTER USES co B 
IT BYTES. EACH EYTE CAN HOLD NUMBERS FROM @ 
Tah 2ES Cie ALiiiiil1 BINARY). 16(DECIMA 
oe Is 2D 

& PRINT INVERSE 13"SQ HEXADECIMAL IS A GO 

aD COMPROM-ISE BETWEEN COMPUTER AND HUMAN. AND 
NUMBERS FROM @ TO 255 (DEC) ARE ALL JUST T 
WO HEX DIGITS. " 

125@ INFUT FLASH i: "PRESS<ENTER> "3X: LET B 
=16: GO TO 38¢ 

2400 DATA 248,16,32,64,249,9,9,4,249,16,112,1 
6,249,89,89,9,128,128, 169, 244,352,9,9,8,249,128, 
248,16,248,9,0,08,192, 125,246, 144, 249,9,9,0,24 
@,16,32,69,123,68,9,¢ 

28918 DATA 96,144,144, 144, 96,9,9,09,249,144,96, 
144,249,68,9,9,1,5,3,19,16,28,32, 255 
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Toptrainer (48K) 


This is a horseracing game in two parts. In the first section players are 
presented with a board on which their counters are randomly moved by 
the computer. This offers players the opportunity to buy and sell horses, 
win or lose money, train their nags and prepare for stage two, the actual 
race. Prior to the race itself, each player has the chance to decide which 
of his horses he wants to enter and how he wants to place his bets. After 
players have issued ‘race instructions’ to their jockeys, the race is run 
and the winner collects both the prize money and any returns due from 
bets placed. At the start of the game each player has £10,000, and 
throughout the game balances are presented so that you can keep track of 
your fortunes. Play continues until someone reaches six figures, or until 
only one player is left in credit. 


1 REM toptrainer 

2 DATA "Ant ","Bee ","Cola",*Dash", "Emu ", 
"Fox u ; "Gus n s "Harp n ‘ "Tbex", "Tinn er "Kay u 4 cas Ci § 
na", "Mack", "Nixy","Olly", "Pug ” 

S RANDOMIZE 

1@ GQ SUB 3000 


i> fae 
12 DIM hS(16,4): DIM h(ié6): DIM #(16): DIM 
p(16) 


14 DIM a$(8,5): DIM a(S): DIM vi(2,16): DIM 
wl2,16) 

16 Dim t¢i6): DIM r(i6):? DIM s(id6): DIM o¢t 
6): DIM q(4,16) 


18 DIM b(8): DIM a¢@) 
28 FOR imi TO 16 

22 READ h#(i) 

25 LET h(i)=INT (RND¥1G+1) 

26 LET o(1)=-1 

2@ LET #(i)=a 

29 NEXT 1 

SOUDATA SoS. 5atOs5, 1725524 

Be DATAD S324 i 3524, fe: 24s fast? 

32 DATA 1S p10) 0S ypa 1540 (ec S 

35 FOP i=i TO 12: READ w(1,i),w(2,i)! NEXT 
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498 FOR i=1 TQ 12 

42 LET vil, i} =6- (48 (01-1) /4-INT (¢i1-1)/4))) 
44 LET vl2,i)=12-INT (¢61-1)74) 

45 NEXT i 

i@@ PAPER i: BORDER 1: CLS 

1g INPUT “How many plavers? (1-8) “Gn 


167 IF n<il OF n>S THEN GO TO tae 
Pe FoR es Pee nh 


Tae PRINT AT 21,983 "Name of Flayer "Sis 


peo INPUT “Se tes 

126 IF LEN e$>5 THEN PRINT AT 21,1835 "Max« 5 
fetters"3;: GO TQ 125 

128 LET at(i)=et: LET ati)=1d¢98¢ 

1530 NEXT i 

1355 BORDER 2 

i4d@ INK 6: CLS : FRINT “ TOP TRAINER” 


141 INK 7:2 PRINT AT 2,43 "You start with fige 
99 each." 

142 PRINT “Each of you is an owner/trainer" 

144 PRINT "of horses which you can buy, ” 

146 PRINT "sell, train up, and enter for” 

245 PRINT "races." 

15@ PRINT AT 8,4¢ "You make money from winnin 


152 PRINT "races and also by betting on” 

154 PRINT "horses -yours or someone else’s. 

156 PRINT AT 12,43 “Horses improve when they 
ron” 

158 PRINT "well but lose value when they" 

16@ PRINT "don’t. It costs £5098 to enter a” 

162 PRINT "horse for the race." 

164 PRINT AT 17,43 "If you go bankrupt, ‘you 1 
ose” 

166 PRINT "the chance to train, run or bet" 

16S PRINT “on horses. " 

1°7@ GQ SUE 9729 

268 BORDER 4: PAPER 6: CLS : INK 2: LET m=1: 

LET ws=a 

281 FOR i=2 TQ 3@ STEF 7 

295 FOR j=l TO 21 

21@ PRINT AT j,i5" "3 

215 NEXT js NEXT i 

228 FUR i=1 TO 21 STEP 5 

225 FOR j=2 TO 39 
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239 PRINT AT i,ji' "3 
235 NEXT j: NEXT i 

24g PRINT AT 11,185" "5 
2 

- 


SS PRINT AT 3,163" "$1 NEXT j 


256 FOR i=i TO mn: LET pcti)=i 
257 LET line=@: LET col=@: IF i*4 THEN LET 


52 PRINT AT 2,3; "START> CHANCE MSALEM TRAIN 


line=1: LET col=-4 

25S PRINT AT wi, pli) )tline,wl2Z,p 1) )+itcols 
CHRS (4e+i) 

259° NEXT 1 

2690 INK 2 

26 


265 PRINT AT 7,35 "TRAIN "$i INK 1: PRINT "B 
ANE BALANCE£"s: INK 2: PRINT " MSALE@" 

2Pa PRINT AT 12,35: "CHANCE" 

S?2 PRINT AT 12,245 “CHANCE” 

275 PRINT AT 17,35 "MSALEM TRAIN CHANCE MSAL 
cg" 

cea For j=1 Ta nm 

225 PRINT AT 7tj,1635" : 

29@ PRINT AT tj ,iMi jr as (ji 

291 IF a(j)¢@ TREN FRINT ""5 

292 PRINT AT Pei,idialjds""5 

205 NE 3 

SAG INE @: PRINT AT @,@:aS(m)35""s 90..." 

SiG} LET thro=INT (RND*¥6+1) 

ZiS5 GO SUB °S5ae¢ 

32¢C PRINT AT &, 1535 thro 

228 GO SUB 9Ea8 

S35 LET iine=@: LET col=@: IF m}4 THEN LET 
line=ii LET col=-4 
336 PRINT AT wll.pt(m))t+tline,wl2,p(m))tmtcol$ 


337 LET »=p(m)+thro 

34@ IF x>12 THEN LET x=x-12 

345 LET ptm) =x 

350 LET line=@: LET col=@: IF m>4 THEN LET 
ine=1: LET col=-4 

352 PRINT AT wli,p(m)) +tline,w(2,p(m) )+mtcols 
HRS (48+m!} 

355 GO SUE 9098 

358 IF x=i1 THEN GO To 45¢@ 


ra 


ie) 
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Seg IF x=2 OR x=6 GR x=S GR x=11 THEN GQ Ta 


SoZ IF x=3 OR x=5 GR x=? QR x=19 THEN GO TO 


tA” 


65 IF x=4 QR x=9 GR x=12 THEN GO TQ &gaa 
2735 GO SUB 99¢¢ 

3c¢@ GQ SUB 98a 

S?5 LET m=m+1l 

a9? IF mtn THEN LET m=1 

49@¢ GO TO 289 

45@ PAPER @: BORDER 3: CLS : INK 6 

$32 FRINT "Someone landed on START, so it’s" 
455 PRINT : SRINT "time for a race....” 

46a GQ SUB 9heaa 

$473 LET r=0 

so@g FOR i=i Ta vn 

S53? FOR j=1i TO 14 

S69 IF of(j)¢>i THEN GO TO S75 

e462 CLS : PRINT AT 1,83 aB(i) 

243 PRINT AT 3,@3hS(j)35" Cost "Sh(j) ¥5@GG: G 


OQ SUR 54980 
S64 PRINT AT 7,43 "Will "$h(j)5" race today? 
S45 LET y@=INKEYS: IF yé="" THEN GQ TO 565 
s7a IF y$="y" THEN LET alid=a(li)-S@@: IF a( 
i}:@ THEN LET ali)d=a(i)+S50@: GQ SUB F499: GO 
TQ 325 
S72 IF y="y" THEN LET stj)si: LET rertis b 
YT «SINT (h(j)+4(j)/2): GO SUB Saga 


S?S NEXT j 

ses NEXT i 

5°29 PAPER 4: BORDER 3: CLS : LET z=@: LET a= 
@: LET rr=ag 

626 GQ SUB 4an¢ 

645 LET rx=t 

6ig LET m=INT (RND¥1é6+1): IF wi>48G THEN GQ 

TO 865 

615 IF s(mi=@ OR s(m)=S THEN LET woswSti: G 
Oo Ta 619 


63@ LET rrerrtit LET s(mj)=5 

635 FRINT AT vilarri,yvl2,rr)3CHRS (44+m) 
636 LET z=z+him) +# (m) 

637 LET plmoerr 

60 IF + torr THEN Ga TO 614 


é5@ FOR j=1 Ta 16 
$55 IF s(j)<>5 THEN 
SEG LET hP=hlj tt Cj 


XN 
a - 


pa a 
Cm 
Ooo 


1 


469 K 


INK 6: FRINT AT 
ey PhSCj,1 TO 1)5 "= 
661 LET rx=rxit 

662 NEXT j 

464 FOR i=1 Ta ne I 
©6535 IF ati)d’=a@ THEN 
as no cash to bet! ": 
$66 PRINT AT 13,8i5a 


awn 


66" FOR k=1 TO 1d: 
66¢ LET y#=INKEYS: 
479 IF ys="n" THEN 
672 PRINT "“Horse’s 


675 FOR k=1 TO 198: 
674 LET  yS=INKEYS: 
675 FRINT v& 

676 FOR j=i Ta 16 
6é7@ IF yH=ne(j,1 Ta 
679 NEXT j 
ofa INFUT 
$ 
633 IF ati)-a¢@ THE 
in the kitty! *: Ga 
684 LET d(id=ai LET 
6°a FRINT AT 13,45" 
492 PRINT AT 14,63 
695 PRINT AT 26,93 


o96 FRINT AT 


+ 


"How much 


Ww 
f 


21,83 


697 NEXT i 

693 GG SUP Fedd 

64?9 GO SUB 429¢g 

Fad FOR j=1 TO 16 
785 LET ja=plj) 

Pig IF s(j)<?5 THEN 
720 LET r(jad=t: IF 
a)=2 

738 IF viil,ja)o16 T 


P4@ IF r(jad=3 AND 
)=4 
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Ga TQ 442 


ys IF hE<=1 THEN 


LET he= 


9,6; "O0DDS" PRINT AT 
"SINT (2/n9)35"" 


PAs 


NK @ 
PRINT AT 28,03; a8(i)3" 

GO SUB 95096: Ga Ta 63a 
S(id;s" Bet ?P«ty/N)" 

LET yS=INKEYS: NEXT k 

IF yS="" THEN GQ TQ 668 
Ga Ta 69¢ 
fetter? "5 

LET yS=INKEYS: 
IF ys="" THEN 


hy 


NEXT k 
ca Ta 


67 


1) THEN LET bth)=j 


money? “gj ¥Si 


LET a=VAL y 
N PRINT "Not 
SUB 95¢a¢g: GG 
atil=al(i)d-a 


enough mone 
TQ 697 


GG TG 85@ 

v(2,ja}>24 THEN LET r(j 
HEN LET ri(ja)=3 
vi(2,ja)¢i@ THEN LET r(ja 
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P56 LET m=INT (RND*¥S) 

769 IF m3}2 THEN GO TQ 73¢ 

POS IF m=2 AND q(r(jad,jai?@ THEN LET q(r(j 
},jal=q(r(jad,jad-1: GO TO 7aea 

774 GO TQ 85a 

789 GO SUB i@d@+18@%r (ja) 

785 IF msi THEN GQ TQ 85a 

Saq@ PRINT AT vilajad,vi2,jadi" " 
Rig CET vil,zjajevil,jadty 

15 LET vl2,jadHviz2,jad+x 
PE PRINT AT vilzjadav(2Z,jaiihs(j,1 TO 1) 
e4a IF r(jad=4 AND vl2,jad<S THEN GO TO Séa 
@ NEXT j 
55 GO Ta 2a 

g@ GQ SUB Sage 
PRINT AT @,€3 "The WINNER is "gh#(j): LET 
2eS=hs(j) 

62 LET rerrkieged 

S63 FRINT AT 1,9; aslo(jdd3" gets £"irg" priz 
ee": LET alolj))Falol(j)) tr 

865 GO SUB 9998 

667 GO SUB 9aaa 

86S LET z=INT (2z/(h(j)t+f(j)))2 IF z¢i THEN 
LET z=1 

869 GO SUB 2¢@@: PRINT AT 2,03 285" won at od 
ds of "3z3" to 1" 

87a FOR k=1 TA n 

B72 IF b(k)=j THEN LET a(k)=alk) +b (Ck) ¥z+b(k 
PRINT a@(k)3"’?s bet wins! " 
76 NEXT k 
7? GO SUB Soea 
S 


o 


iy) 
ul 


9 
a 


a) 
oe 
a 


peed 
. 


LET r=1: LET rr=t 
FOR j=i TO 162 LET r¢jdeti LET stjdeai ob 


m 
Om 0 4 


oO 02 


é GO TO 29@ 
110@ LET x=1 

111@ FOR y=1 TO -i STEP -i: IF SCREEN® (v(1,j 
a)ty,v(2,ja)+x)=" " THEN RETURN 

112@ NEXT y 

112@ LET m=1: RETURN 

12¢@ LET y=1 

1218 FOR x=-1 TO 1! IF SCREEN® (v(1,ja)+y,v(2 
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sjaitx)=" " THEN RETURN 

122@ NEXT x 

1238 LET m=i1: RETURN 

129@ LET x=-1 

1319 FOR y=1 TO -1! STEF -1: IF SCREENS (vil, j 
altyyvc2,jal+x)=" " THEN RETURN 

13208 NEXT » 

13390 LET m=i1: RETURN 

i4da@ GO TO isda 

z@0q@ GO SUB Saga 

2485 PRINT AT 6,90: "Form changes as a result o 
+ race" 

2606 LET rx=9 

2007 FOR j=1 TO 11 


2Oaig@ FGR i=i TO 3S 
2828 IF SCREENS (15+i,2+j)=" " THEN Ga TO 26 
2O?75 LET x=CODE (SCREENS (15+i,2+j))-44 

2027 LET rexerxtt 

2aS30 PRINT rag" "GhBCx) | 

2832 IF j3=9 THEN FRINT " Will lose points"; 
2433 PRINT 

2@34 LET f¢(x)=f (x) +INT (C135-7)%.75) 

2G590 MEXT i: NEAT j 

2852 PRINT 

2E55 PRINT "If any horse hasn’t been given a” 
2A6G FRINT "mention then it has lost 4 form” 
4265 PRINT “points. It should have stayed at” 
@?@ PRINT "home! ” 

ars GO SUE 95e@a: GO SUB 79°dg: CLS 


FRINT "Horse Qwrner £ before £ now” 
FoR i=i TO t6: IF s¢i)d<>5 THEN GO TO 21 


a iQ 
on sd 
2 0 


LET #¢(id=f Ci)d-4 
PRINT AT i,@ihS(idi TAB (7s asl(oli)) 
PRINT AT i,i147t¢i)2 PRINT AT 1,223; h¢0i1)%5 


QQeeY OQQAQEA 
0 0G 03 
QQ raha 


Wawa Q@hhh Qh hy hw hh 


+f (Cid ¥250 

G@ NEXT i 

i@ RETURN 

Ce CLE : FOR j=1 TQ S38 

L@ INK CRND*#¥3) 
Tis PAPER (RND¥S) 
G2 PRINT AT RND¥20,RND¥215 "TOP TRAINER” 
@i@ NEXT j: RETURN 
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46a PRINT AT 2,8: "TTTTTTTTTTTTTTTTTITT" 

491@ PRINT AT 7,83 "TTTTTTTTTTITITI" 

4979 PRINT AT 15,4: "TTTTTTTTTTTTTTTTTTITTTTIT" 

4039 PRINT AT 19,85 *TTTTTTTTTTTTTTTTTTTTITTTITT 
Due 

4404@ FOR i=2 TO if: PRINT AT i1,275"T"s NEXT i 
4@5@ FOR i=? TO iS: PRINT AT i,233"T": NEXT i 
49609 FOR i=3 TO 6: PRINT AT i,id3" "i NEXT i 
4@7@ PRINT AT 15,45 "Q":s PRINT AT 15,1235" " 
449°@ RETURN 

4398 FOR i=3 TQ 6: PRINT AT i,143" "3 NEXT i 
434@ FOR i=i TO 16: LET ttid=INT (hi) ¥5aa+F ( 
i)¥250): NEXT i 

4354 RETURN 

AG@@ IF x¢<=@ THEN PRINT “This horse is badly 
off form”: GQ TO Si@g 

S@e@S PRINT "Points available for race..."ix 
Sdig FOR m=1 Ta 4 

EgG2@ IF m=4 THEN PRINT "The 4th quarter must 
be "3x: LET qitm,j) =x: GO TO S5i98¢d 

Sa2S PRINT "Qrders for quarter no. "$m3"(@-9) 


' 
ug 
5027 FOR k=1 TO 18: LET y#=INKEY®: NEXT k 
5@39 LET yS=INKEYS: IF y%="" THEN GO TO 5939 
SO32 IF CODE (y#)<4a OR CODE (y#)>57 THEN GO 
To saz¢ 
S935 LET b=VAL ys 
@ LET x=x-b 
Ses 1F »<@ THEN LET x=@: LET b=@ 
S@55 PRINT b 
@ LET qt(m,j)=b | 
@ NEXT m 
ii GO SUB 999@ 
@5 FOR m=1 TO 4: LET q(m,j)=@: NEXT m: RETU 


5490 PRINT "Current value £°3 4 (7) ¥2599+h(j) *5P 


S4@5 IF (4 (jf) *259+h(j)*590)<=a@ THEN PRINT "W 
nich is bad news!!" 

54i@ RETURN 

6aggag LET x=INT (RND¥6+1) 

6@19 LET «=-256*x 

6@20 IF RND>.S THEN LET x=-x 

6830 CET alm) =atm) +x 
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6240 GO TQ 375 

“OOS PRINT AT @,@3 "Does “j;atim);" wish to sel 
lo a horse?" 

7818 GO SUE Fess 

“829 IF ys="n" THEN GO Ta 7a5a 

7425 GQ SUB 9é9g 

7826 FOR i=1 TQ 16 

?@2? IF ofi)<tm THEN GQ Ta 7645 

7823 PRINT AT 8,45 "Do you wish to sell "sh#(i 
}: GO SUB Sagem 

7838 IF ys="n" THEN Ga Ta 7a@4¢ 

Y@31 GO SUB 9@6@: LET bb=INT (h(i) ¥500+4 (i) x2 
S@}: IF bbo<@ THEN LET bb=9 

?OS2 PRINT AT O@,Gsh#lids" cost £"sh (i) #5; " 
Now worth "Sbb 

7@33 INPUT "Buyer No. (if none type 9) "3b 
7835 IF b=@ THEN GQ SUB 9@@@: PRINT AT @,@5" 
OK, I’ll take it for "sbb: GO SUB 95a¢ 

7836 IF b=@ THEN LET of{i}=-1: LET atm)=a(m)+ 
bb: GO TQ 7649 

7837 IF bin THEN GO TO 7033 

?@3E INPUT “At what price £"ja 

7839 LET ofi)=b:i LET a(m)=a(m) ta: LET alb)=a( 
b)-a 

7848 GO SUE 99a8 

G45 NEXT i 

7O59 LET offer=INT (RND¥15+1) 

786A IF ofoffer)<>-1 THEN Ga Ta 7a5a@ 

YOrE GA SUE F889 

7084 PRINT AT @,03"I’11l sell you "“sh®(offer); 
" for "sh loffer) ¥50@ 

Pig@ GA SUB 988¢ 

7105 GO SUB 9%s8a¢g 

7Li@ IF ySio"y" THEN GO TO 375 

712@ PRINT AT @,@3"QK - Done” 

7125 LET ofoffer)=m: LET a(m)=a(m)-htoffer) *5 
g@8; GO TQ 375 

se@a FOR i=1 TO 164 

8@i@ag IF of(i}<>m THEN GO Ta 8196 

S812 IF a(m)<@ THEN PRINT AT @,835" You’re BA 
NKRUPT": GQ SUB 9590: GO SUB 9e@@¢: GO TQ 8190 
e@a1i5 PRINT AT 6,83 "How much money to train "j 
hS(i) 

8928 INPUT "“£ "Fa 


*s, 


J 


ies 


”, 


124 


eid 


IF a(m 


gh cash in 


cn @ ¢ 
u 
Q- 


eaas 
Paid 
eaag 
nue 
9o1g 
F928 
9925 
99 od 
S262 
9956 


LET x= 
KET b= 


Se aa 
GO SUB 
NEXT i 
Go T9 
PRINT 
Hn 
RETURN 
PAUSE 
LET v& 
IF yS= 
RETURN 
PRINT 
GQ TQ 
PRINT 
Go Ta 
PRINT 
PRINT 
RETURN 
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)-ai@ THEN PRINT AT 96,93 "Not enou 
the kitty!": GQ SUP S5eq: GO TO 6d 


INT (RND#E5+2) 
INT (4¥a/3@@@): IF b>oS THEN LET b 


fyts€(i)tb: LET a(m)=alm)-a 


Sade 


375 


AT 9,93" 


S55: RETURN 


=INKEYS 

"" THEN GO TO 9840 

AT 8,5" Press any key to conti 
93do 

AT 21,8; "Press any key" 

Fede 


"caShl@eSsSe. acerca renrscaes 
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Biorhythms 


The theory of biorhythms assumes that the physical, emotional and 
intellectual capacities of an individual are subject to regular cycles of 23, 
28 and 33 days respectively. During each cycle the curve will increase toa 
high point, then sink below the median value, tracing out a sine wave. 
These cycles commence at birth, and progress at different rates, 
producing crossovers, considered to signify ‘critical’ periods (days when 
the individual is more prone to accident or error of judgment) when the 
crossover is one involving the low values of the curves. Especially crucial 
are those days when all three curves meet. Positive high values at 
crossovers have a good effect. 


The program calculates the cycles from the day of birth, and displays a 
graph of the curves fora period of one month from the chosen date. 


16 BORDER 1: PAPER 1: CLS 

26 GO SUB S88G 

1@@ LET total=6: LET total2=@: PRINT INK 53 
AT @,194; "BIORHYTHMS": PRINT : FRINT : PRINT 

11@ PAPER @: INK 5S: PRINT TAB (3)3 "BIRTH YEA 
Ri "3; PRINT 2: PRINT TAB (3); "BIRTH MONTH: 

"S PRINT © PRINT TAB (3); "BIRTH DAY: " 

115 PRINT : PRINT 

l2z@ PAPER @: INK S: PRINT TAB (3); "YEAR REQU 
IRED: “i PRINT : PRINT TAB (3); "MONTH REQUIRE 
Di": PRINT : PRINT TAB (3); "DAY REQUIRED M4 

13@ PRINT INK S$ FLASH 15AT 21,335 "Enter det 
@ils now (numeric)? 

i4@ PRINT PAPER @: INK 73 FLASH 13AT 4,35"B 
TRTH YEARS": INFUT yy: PRINT AT 4,2@3¥ 

1548 PRINT PAPER @}3 INK 73; FLASH S3AT 4,35 "B 
IRTH YEAR: " 

i6@ PRINT FAPER @% INK 73 FLASH 15AT 6,35 "B 
IRTH MONTH: ": INPUT ms PRINT AT 6,283m 

178 PRINT PAPER @} INK 73 FLASH S5AT 6,35"B 
IRTH MONTH: " 

16@ PRINT PAPER @3 INK 73 FLASH I13AT 8,35"B 
IRFR DAYS": INPUT di PRINT AT 8,.265d 

199 PRINT PAPER 9; INK 73 FLASH S5AT 8,35 '"B 
IRTH DAY: " 
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<@9 PRINT PAPER 
YEAR REQUIRED: "> 
Z1@ PRINT PAPER 
YEAR REQUIRED: " 
226 PRINT PAPER 
MONTH REGUIRED: "2 
230 PRINT FAPER 
MONTH REQUIRED: " 
242 PRINT PAPER 


@3 INK 73 FLASH L5AT 11,335" 


INPUT yl: PRINT AT 11,283 y1 


@} INK 73 FLASH @SAT 11,35” 
@i INK 73 FLASH 15AT 13,335" 
INFUT mi: PRINT AT 13,265m1i 
@3; INK 73 FLASH GSAT 13,355" 


@i INK 73 FLASH 15AT 15,35" 


DAY REQUIRED: "i: INPUT di: PRINT AT 15,2e@5d1 


208 PRINT PAPER 
REQUIRED: " 


=] 


GMAW O Ge i ul ta hy > t 
im & 


eM SJ Hd 


Or 
Q 


{F m?1l THER 

IF mi}1 THEN 

IF m-1?1 AND 
otalitl 


by 
re Toe 
Ob ch Suh 


rt 
NJ 
Qu 


iZ=total2t+l 


Ww 
ou 
ony 


& PAFER 7: INK 
GQ SUB liagag 


Go GE Od 
“IO 
QQ 


LET totai=(y- 
LET total2Z=(y1i-1i°*#365.25 


@; INK 73 FLASH @3AT 15,33” 
1)¥365.25 
LET total=totalt+m(m-1) 


LET total2=totalZtm(mi-1) 
yf/4=INT Cy/4) THEN LET tot 


IF mi-i1>i1 AND wi/4=INT (y1/4) THEN LET 


LET total=totalt+td: LET total2=total2t+dl 
LET day=total2-total 
IF mi=m AND di=d THEN GO SUR S9e¢g 


2: CLS 


@ LET peday-(INT (day/23)*23) 
6@ LET e=day-(INT (day/28)*28) 


3990 LET i=day-(INT (day/33) 33) 


49@ PRINT FLASH 
S@@ FOR n=p¥c TO 


15;AT @,83 "Physical cycle” 
(pX¥c) +255 


Sig PLOT n-(p¥c),835.5+83.5%5IN (n/(11.5XPI)) 


S26 NEXT wn 
S25 PRINT FLASH 
S30 FOR n=ex¥c TA 


15AT 8,08; "Emotional cycle" 
(e¥c) +255 


540 PLOT n-(e¥c),83.5+83.5*%SIN (n/(i4dKxPI)) 


SS@ NEXT wn 
SSS FRINT FLASH 


S66 FOR n=i¥e Ta 


S/o PLOT n-(ikxke), 


589 NEXT nh 

a9a PRINT PAPER 
for 4 

595 PAUSE 1iff@ 


1;AT @,43 "Intellectual cycl 


(i¥c0) +255 
SS.54+83.5%SIN (n/(16.S¥PI)) 


@; INK SsAT 8,93 "Biorhythm 
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6@8 PRINT PAPER 7: INK 23AT 20,23 "Fress a k 
ey to restart” 

61@ IF INKEY$="" THEN GO Ta 61¢ 

62e GO TA 19 

10@@ PRINT PAPER @;* 

1G1@ LET c=9. 8695465217 

1@1S PRINT PAPER @: INK S3AT G,@;*DIVISIONS= 
DAYS": PAUSE tag 

ig2@ FOR x=1 Ta 25 

194 PLOT c¥x,@: DRAW O,167 

1@6@ NEXT « 

102G PRINT PAPER 3 INK SSAT @,1i8sdis"/"gmi3 


OP Eytgees 
{ieg RETURN 

5a LET a=.2!: LET b=.4 

s@i@ BEEP a,@: BEEP a,@: BEEP b,2: BEEP b,@: 

BEEP b,5: BEEP b,4: PAUSE 1@: BEEP a,@: BEEP 

a,@: BEEP b,2: EEEP b,@: BEEP b,?7: BEEP 6,5: 

FAUSE 1G: BEEF a,@: BEEP a,@: BEEP b,12: BEEP 
b,?: BEEP 6,5: BEEP b,4: BEEP b,2: PAUSE 1i@: 
BEEP a,1@: BEEP a,i@: BEEP b,9: BEEP b,5: BE 
EF b,7: BEEP 5,5 

5¢ 


2a XETURN 

9400 RESTORE : DIM m(il) 

P01iG FOR «=i TO £4 

“9E@ READ ni LET m(x)=n 

S940 NEMT x 

SG4@ DATA 31,59,98,120, 151,181,212, 245, 273,38 


9999 RETURN 


128 


Alien 


The alien ship passes overhead, razing the ground below with its power 
beam, and dropping swarms of deadly Veepods. Moving swiftly across 
your territory you fire your missiles as long as the power holds out. When 
arecharge is necessary, your base changes shape, and you must ride out 
the dangers undefended. Asan added difficulty, you can choose to have 
an invisible alien, only identifiable when it fires, and providing minimal 
guidance for your missile positioning. 


1 REM @ F.STANLEY 
3S LET hs=¢ 
1@ BORDER @: PAPER @: INK 6: CLS 
12 GQ SUB itgae 
15 GO SUB 2899 
18 CLS 
19 PAUSE 59 
2@ LET x=@: LET y=l: LET z=1i4: LET s=8: LET 


25 PRINT AT 9,263 "HI-SCORE: "5hs 

30 GQ SUB Zt 

35 IF RND>.?7 THEN GO SUB 29¢ 

96 IF RND<.95 THEN GO SUB 78 

68 IF c=3 THEN GO TQ 395 

6i LET z=z+(2 AND IN 65278=251 AND z<26)-(2 
AND IN 63527¢=253 AND z>@) 

2 PRINT AT 21,25 INK 35” Cc " 

63 IF IN 32766=251 THEN GO SUB 199 

68 PRINT AT @,23; "SCORE: "55 

76 GO TQ 39 

7i LET x=xt+ii PRINT AT yvax3" "59S 

72 IF x=29 THEN PRINT AT y.x5" "s LET x= 
@: LET y=ytl 

73 IF y=2l THEN LET y=1: LET cect 

74 IF c=3 THEN GO TO 3285 

75 RETURN 

72 PLOT @¥x+12, (2i-y)¥8: DRAW 0,-( (21-7) *8) 

79 BEEF .@5,-20: BEEP .@5,-15 

8G IF x=z+i THEN PLOT OVER 138%¥x+12, (21-y 
)¥8: DRAW OVER 139,-((21-y)*¥8): GO TO 399 
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82 BEEP .@5,-26: BEEP .@5,-15 

BS QVER 1: PLOT @¥x+12, (2i-y)*8: DRAW @,-¢¢ 
Z2i-y)}*8)i QVER @ 

84 RETURN 

199 FOR a=2@ TO 1 STEP -1l 

11@ PRINT AT a,z+23 "G6" 

1ii IF RND<.@4 THEN GQ SUB ?8 

1i2 LET z=z+(2 AND IN 65278=251 AND z<¢26)-(2 

AND IN 65278=253 AND z>@): PRINT AT 21,23 IN 
oe rn Sn 

128 GQ SUB Fi 

15@ BEEP .d@@1,at+2@ 

16@ IF a=y THEN IF x=z+!1 OR x=z THEN LET 5 
=stINT (1@@/y)+1i@: PRINT AT y,x3" DO": BEEP 
2,4: BEEP .2,12: RETURN 

16S PRINT AT a,z3 INK 53" 

1°98 NEXT a: RETURN 

20@ LET f=x: FOR a=y TO 21 

212 PRINT AT a,fs INK 43 "FFF FE" 

229 LET z=z+(2 AND IN 65278=251 AND z<26)-(2 

AND IN 65278=253 AND z>@): PRINT AT 21,z3 IN 
Kees Em 

239 IF a=21 THEN IF =z OR f=z-1 OR f=zt1 O 
R #=z+2 THEN GO TO 399g 

2468 GO SUB Zi 

242 PRINT AT a,f3" 

245 NEXT a 

2538 RETURN 

38@ PRINT AT 21,z+25" " 

S@1 FOR a=-15 TO 15 STEP 3 

382 PLOT z¥8+29,2 

393 DRAW a, RND¥16 

344 NEXT a 

395 FOR a=4@8 TQ -4d STEP -2 

396 BEEP .@95,a: NEXT a 

387 IF sohs THEN LET hs=s 

31@ FOR a=-4@ TO 49 

320 BEEP .@95,a 

338 NEXT a 

332 INPUT AT @,93"Do you want to see the ali 
en?",vS 

333 IF v#(li="y" THEN LET gs="AB": GO TO 33 
6 

334 IF vs (t)="n" THEN LET gs=" ": GO TO 33 
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335 GO TO 332 
336 FOR f=1 TO 190: NEXT f 
34@ PRINT AT 5,1: "Press any key to play agai 


359 IF INKEY$<>"" THEN CLS : FOR x=@ TO 269 
: NEXT x: GO TO 298 

368 GO TO 35¢ 

19969 FOR x=USR "a" TO (USR "g"+7)i READ y: PO 
KE x,y: NEXT x 

1G1@ DATA @,4,69,255,BIN 11191916,63,15,3,9,9 
268,255, BIN G1Gi19111,252,BIN 1L1118999,192,8,8 
~8,BIN Si@111@1,119, BIN O11GGG@il1, BIN Gisgi1iigi 
18 

1929 DATA 1,68,136,16,169,9,4, 84 

1925 DATA 129,255,BIN 19199191,36,69,69,1264,2 
55 

1939 DATA 9,129,198, BIN OL1G119G,124,56,16,16 
1@35 DATA 8,8,8,8,9,22,4,9 

ig4g@ RETURN 

2996 PLOT 6,95: DRAW 5,9: DRAW 8,28: DRAW 264, 
@: DRAW @,3: DRAW -25,9: DRAW 11,37: DRAW 27, 
-67: DRAW 12,9: DRAW @,67: DRAW 3,9: DRAW @,- 
64: DRAW 35,9: DRAW @,-3: DRAW 25,4: DRAW 9,3 
>: DRAW 5,98: DRAW @,461 

2924 DRAW -5,9: DRAW 9,3: DRAW 15,9: DRAW @,- 
3: DRAW @,-41: DRAW 5,9: DRAW @,-3: DRAW 18,9 
DRAW 9,67: DRAW 39,9: DRAW @,-3: DRAW -26,9¢ 
DRAW @,-25: DRAW 15,9: DRAW @,-3: DRAW -15, 


@: DRAW @,-33! DRAW 38,8: DRAW @,-3: DRAW 12, 
a s 


: DRAW @,47: DRAW 37,-47: DRAW @,67 
2G3G@ PRINT AT 12,03 INK 35" LEFT... eee enna 
ras RIGHT... cues eessae XK 
FIRE... wean canet nae M 


YOU CAN ONLY FIRE IF YO 
UR BASE Is ""e"" AND NOT ""eE""" 
2434 PRINT : PRINT "Press ‘I’ for an invisibl 
e alienor ’V’ for a visible one." 
2636 IF INKEY$="i" THEN LET g#=" "; GO TO 2 
a4g 
2937 IF INKEY#="v" THEN LET g#="A8": GO TQ 2 
B40 
2938 GO TO 2836 
2949 PAUSE @ 
2650 RETURN 
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Galaxians 


You are the commander of the sole surviving laser base on Earth. The 
fleets of Alien spacecraft are moving in for the final onslaught. Some 
swoop down, lasers blasting; others sit at the top of the screen launching 
unstoppable bombs which must be dodged. If you wipe out one fleet, 
another will appear in its place. In short, you haven’t a chance. But make 
sure you take as many of the nasties with you as you can before you go. 


1g 
15 
18 
29 


Zl 


BORDER @: FAPER @: INK ?: CLS 

LET hs=¢ 

GO SUB Sagg 

GO SUB 9AGg 

LET x=15: LET sc=@: LET 1=3: LET m=RND¥1 


@: LET g=3: LET h=INT (RND¥1@2) 


3g 


1968 
11g 
115 
129g 
isa 
146 


LET aS=" AB AB AB AB AB AB ": LET bS=" C 
CD CD CD CD "i LET c#=" 


LET d=" £F &F " 
LET dir=1: LET y=9 

LET hit=9 

PRINT AT 9,173 "HIGH-SCORE: "shs 

PRINT AT 2,y3 INK S3a% 

BEEP .@@1,39: BEEP .@@1,30: BEEP .991,3¢ 
BEEP .901,30: BEEP .@@1,3@: BEEP .991,34@ 
PRINT AT 2,y3 INK 53b% 

BEEP .@01,40: BEEP .@@1,4@: BEEP .9@1,4@ 
LET x=x+#2%(IN 65278=251 AND x<25)-2#(IN 


65273=253 AND x>1) 


og 
155 


PRINT AT 21,x5" ANG " 
IF IN 32766=251 THEN GQ SUB 1996: PRINT 


AT 9,9; "SCORE: “$sc 


16d 
17a 
175 
18d 
135 
186 
137 
1866 
19¢ 


LET y=y+dir 

IF y=@ QR y=13 THEN LET dir=-dir 

PRINT AT 1,mj3” : 

LET l1=l+i: LET m=m+RND¥4-RND¥4 

IF 1l=2i1 THEN LET 1=3: LET d=" £F £F " 
IF m>25 THEN LET m=12 

IF méS@ THEN LET m=12 

PRINT INK 45AT 1 m3 d% 

PRINT AT g9,h5" 7 
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2608 LET g=g+3: PRINT AT g,h3 "2A": IF g=21 TH 
EN LET g=3: PRINT AT 21.h35" ": LET hi=h: LE 
T H=INT (RND¥17)41: IF Khi=x+3 OR hl=x+2 OR hil 
=x+il THEN GO TO 4999 

21d IF RND>.& THEN IF d#<>” " THEN G 
QO SUB 38909 

3988 GO TQ 1980 
1990 IF POINT (x¥8+23, (21-1)*8+4)=1 THEN GO 
Ta 19389 
1995 IF POINT (x¥8+23,156)=1 THEN LET hit=1 
1916 PLOT x¥8+23,3: DRAW 6,146 
1926 BEEP .92,19 
193@ PLOT OVER 13x*8+23,8: DRAW OVER 139,14 
6 
1946 IF hit=1 THEN LET at@(x+2-y TO x+4-y)=" 

"; LET bS(x+2-y TO x+4-y)=" ">; LET sc=sct+ 
19; PRINT AT 2,x+15"AHAHA": FOR #=@ TQ 15 STEP 
S: BEEP .@1,4: NEXT #: PRINT AT 2,x+15" " 
195@ LET hit=90 
1955 IF ag$=c# THEN GO TQ 2990 
196@ RETURN 
1986 IF 3=1 THEN IF h=x+1 OR h=x+2 THEN RET 
URN 
1199 PLOT x¥8+23,8: DRAW @, (21-1) *8-8 
111@ BEEP .@2,19 
1120 PLOT OVER 15x*8+23,8: DRAW OVER 159, (2 
1-1) ¥8-8 
113@ LET d#(x+2-m TO x+4-m)=" "s LET sc=sct+ 
20: PRINT AT 1,x+13"44A":> FOR f=a TO 15 STEP 
S: BEEP .@1,4: NEXT #2 FRINT AT 1,x+15" x 

1149 RETURN 
2696 FOR f=g TO 15 
261@ PRINT AT 7,5" IVA" 

2620 IF f=8 OR f=3 OR Ff=6 OR F=9 OR F112 AR Ff 
=15 THEN FOR i=6 TQ 2 STEP -2: PRINT OVER 1 
sAT i,f+15 INK S3"AB": BEEP .91,i: PRINT OVE 
R 1sAT i,f+15 INK S3"AB"> NEXT is PRINT INK 

SsAT 2,4+15 "AB" 

2946 NEXT f 

2942 FOR f=14 TO 26 STEP 2 

2044 BEEP .@1,-4 

2696 PRINT AT 7,43" IK" 

204? NEXT 

2050 PRINT AT 7,285" 7 
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2966 GO TQ 3d 

3800 IF d#(2)<>3"£" THEN GO TO 3988 

SAi@d INK 3i PLOT m¥8+1ié6, (21-1) ¥8-1 

2015 DRAW @,9-(21-1)*8 

Sdé29 FOR f=38 TO 42: BEEP .@@1i1,: NEXT 

SA3G PLOT OVER ism¥8+1i6, (21-1)*¥8-1i: DRAW aV 
ER 139,9-(21-1)¥8 

3449 IF POINT (m¥8+16,4) THEN GO TO 488¢ 
S85@ INK 73 RETURN 

30389 IF g=1l AND h=x+2 QR h=x+i THEN RETURN 
Sidg@ INK 3: PLOT m¥8+36,(21-1)¥8-1: DRAW @,9- 
(21-1)*8 

31290 FOR £=398 TQ 42: BEEP .@@1,: NEXT 

S139 PLOT QVER ism¥8+36, (21-1)¥8-1: DRAW aV 
ER 15@,9-(21-1)*& 

314@ IF POINT (m¥8+36,4) THEN GQ TO 49a¢ 
216@ INK 7: RETURN 

4daqag FOR f=1 Ta 15 

4aag° PRINT AT 21,xt+25 INK RND¥6+15 "4A" 

4d2a BEEP .8@5,-RND*¥3a4 

4930 MEXT 

4035 PRINT AT 2i,xt+2j3" " 

44490 IF scohs THEN LET hs=sc 

4d5@ PRINT AT 14,85 FLASH 13;"G AME QVER 
"$AT 18,25 "PRESS ANY KEY TO PLAY AGAIN" 

4960 IF INKEYS¢?"" THEN CLS : INK 7: FOR f=1 
TQ i19@: NEXT £: GO TO 2i 

4978 GO TO 49466 

8ad¢@ PRINT AT @,65"G AL AX IAN S"3 QVER i 
SAU OO as So DE er ee a 

891G PRINT ’"Fleet after fleet, the invaders 
form and wait to attack. Some ofthem dive dow 
n to Earth firing lasers as they do." 

8429 PRINT ’"The invaders in the formation 

drop dangerous bombs to try and destroy your 
laser base. Diving invaders are worth more po 
ints.” 

8@39 PRINT ’"As soon as 1 fleet of invaders 
have been destroyed their mother-ship will ar 
range a new battle-line." 

8835 PRINT : PRINT "z = left »x* = right m = 

fire" 

S@4@ PRINT °” INVERSE i; "FRESS ANY KEY TO STA 

RT" 
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8958 PAUSE @: CLS : RETURN 
9Saa FOR x=USR "a" TO USR "n"+7: READ y: POKE 
NEXT x 


Xa¥! 


PSIG 
Pa2a 
PO3a 
PRAG 
9450 
9d6G 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


1111@,BIN 


9a7 a 
9S7S 
edad 
9aog 
P18 
P11lg 
9120 
PIGS 
esaaa 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


34,35,36,62,15,7,2,14 
36,196,228, 252,248, 224,64,112 

LRTI Ae ROL PE ee 
64,192,32, 124, 228, 228,68,192 

128, BIN 1@1G9119, 242, 123,61,47,39,3 
1,BIN @119G1@1,BIN @19@1111,BIN 119 
1G111198, 244,196,192 : 

@, 24,248, 252,14,6,6,6 

195, 82,9,3.192,8,74,145 

Pe Sig hr al ZOS19O 127s Sine 

255,255, 255,170,178, 255,255,255 
192, 24@, 252,170,178, 252,249,192 
18519, 16,2014, 2.0 at 

72,206, 72,56,32, 64,128,128 
1,31,63,127, 225,193, 192,192 


RETURN 


pe 
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Sheepdog Trials 


There’s no getting away from it, sheep are dumb. The penin the middle 
of the screen is large enough for them all to be housed in comfort, but the 
wretched creatures are demonstrating an unpalatable degree of reti- 
cence. Your trusty collie, Jim, is doing the best he can, but he requires a 
firm handling from you and your cursor control keys. As in life, time is 
running out, and this unusually difficult game will defeat you unless you 
manage to get all the sheep into the pen before the last second ticks away. 
If your best efforts are to no avail never fear . . . there’s always the slaugh- 
ter house! 


1 REM by Robert Erskine from an original i 
dea by Tom Hayward 
ig GO SUB é666¢ 
2a GO SUB Seda 
36 INPUT “How many players?"sA 
49 DIM p(A): DIM $(4,2): LET DX=15: LET DY= 
15: BORDER 4: PAPER 4: INK 4: CLS 
45 RANDOMIZE : LET DD=1: LET RR=1i: DIM R(2) 
>: LET R¢i)=-1: LET R(2)=1 
46 GO TO 65 
5@ CLS : FOR x=@ TO 21: PRINT AT x,@3 INK @ 
3"F™SAT x, Sis INK @3"£"3 NEXT x 
35 FOR x=6 TO 9: PRINT INK @S5AT x, 1963 "F "5A 
T x, 205 "£"3 NEXT x 
96 FOR x=1i TQ 19: PRINT INK @3AT 5,x3"G6"5 
AT 1@,x3"_"i NEXT x 
37 PRINT PAPER 43 INK 45AT 19,155" " 
58 PRINT INK G3AT S,1G35"A"SAT 3,205 "F"S AT 
1,163 "7"sAT 16,263 "K" 
6@ FOR x=6 TQ 31: PRINT AT @,xi INK 63"_"3A 
T 2i,xs INK @5"G"i NEXT x 
61 RETURN 
@@ FOR t=i TO A: REM player loop 
81 GO SUB 5a 
85 LET sc=@: LET $(1,1)=3: LET $(1,2)=15: L 
ET $(2,1)=3: LET $(2,2)=16: LET $(3,1)=4: LET 
$(3,2)=15: LET $(4,1)=4: LET $(4,2)=16 
96 PRINT AT @,63 INK 73 "PLAYER "jt 
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95 GO TO 13d 

199 REM dogmove 

1965 IF INKEYS="4" THEN GO TO 3480 

1i1@ LET I=CODE (INKEYS#)-52 

115 PRINT INK 45 PAPER 45AT DX,DY3" ” 

12@ IF I=1 AND ATTR (DM,DY-1)=36 THEN LET D 
Y=DY-1: LET DD=2 

13@ IF I=2 AND ATTR (DX+1,DY)=36 THEN LET D 
X=DX+t+1 

14@ IF I=3 AND ATTR (DX-1,DY)=36 THEN LET D 
X=DX-1 

15@ IF I=4 AND ATTR (DX,DY+1)=36 THEN LET D 
Y=eDyY+i: LET DD=1 

16@ IF DD=1 THEN PRINT FAPER 43; INK @SAT D 
xX,DY3 "A" 

17@ IF DD=2 THEN PRINT PAPER 45 INK @SAT D 
X,DY5"B" 

175 RETURN 

16@ FOR z=1 TO 4: REM sheeploop 

1i¢@ LET SX=S(z,1): LET SY=S(z,2): REM sheepm 
ove 

195 GO SUB 19¢ 

206 IF RND>.75 THEN GO TO 234 


216 IF RND>.5S THEN LET SxX=S(z,1)+R(2): GO T 
OQ 224 

215 LET SxX=S(z,1)+R1) 

226 IF RND>.5S THEN LET SY=S(z,2)+R(2): GO T 


GO 234 

225 LET SY=S(z,2)+R(1) 

23@ LET E=(ABS DX-S(z,1))/1@: LET F=(ABS DY- 
S(z,2))/19: LET G=S(z,1)-DxX: LET H=S(z,2)-DY 
235 LET o=@: LET g=RND: IF g>E AND q>F THEN 
LET o=1 

24¢@ IF G>@ AND 
2568 IF H>@ AND 
T RR=1 

268 IF G¢<@ AND 
276 IF H<@ AND 
T RR=2 

286 PRINT AT S(z,1),S(z,2)5" *% 

2998 IF ATTR (SX,SY)<>36 THEN GO TO 31¢ 

3@@ LET S(z,1)=SxX: LET $(z,2)=SY 

Sig IF RR=1 THEN PRINT PAPER 43 INK 75AT S 
(234 S24. 20 6" 


00 
fl ol 
“a 


THEN LET SX=S(z,1)+41 
THEN LET SY=S(z,2)+1: LE 


THEN LET SX=S(z,1)-1 
THEN LET SY=S(z,2)-1: LE 


00 
i) 
ares 
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320 IF RR=2 THEN PRINT PAPER 43 INK 7;5AT S 
(25 DS C24-2)4p" 
3398 LET RR=INT (RND¥2) +14 
342 NEXT z 
S5@ LET sc=sct+i: PRINT PAPER 43 INK 7;5AT @, 
2i3; "Score -";150-sc;" "} IF sc=iS@ THEN GQ 
TQ 36069 
76S GO TO 18¢ 
S37 NEXT t 
260900 BORDER 1: FAPER 1: INK 1: CLS 
2085 INK 7: PRINT AT 6,12; "RESULTS": PRINT : 
PRINT 
2616 FOR x=1 TQ A 
2926 PRINT TAB 93"Player "5x5": "3p (x) 
263G NEXT x 
29490 PRINT =: PRINT TAB 43 "PRESS ANY KEY TO RE 
START” 
2650 IF INKEYS="" THEN GO TQ 285¢ 
26646 GO TO 19 
3909 PRINT INK @3AT 16,153"___" 
3062 LET p(t)=150@-sc 
29085 LET check=9 
341d FOR x=1 Ta 4 
39628 IF Six,1)>5 AND S(x,1)<1@ AND S(x,2)31¢ 
AND S(x,2)<26 THEN LET check=check+tti 
303@ NEXT x 
39490 IF check<4 THEN PRINT INK 73AT 18,235 "¥ 
ou failed to pen the sheep"SAT 19,23 "Your sco 
re is zero": LET P(t)=@: LET check=@: GO SUB 
40600 
S@56 IF check=4 THEN PRINT INK 75AT 18,25 "¥ 
Our score was "3P(t): LET check=@: GQ SUB 499 
g 
3460 GO Ta 37a 
$990 FOR gq=1 TQ 466: NEXT gq: RETURN 
5660 BORDER 1: PAPER 1: INK 7: CLS 
S@ig PRINT AT 1,83 "SHEEPDOG TRIALS"3;AT 3,5; "@ 
Robert Erskine 1983" 
Sa@2a PRINT AT 5,83 "The object of the game is 
to ","herd all four sheep into the penwithin 


a fixed time limit by ", "moving the dog using 
the arrow ", "keys. When he sheep have been " 
» "penned, close the gate with ","the @ key an 


d your score will ","be displayed. Less than 
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four 
ime, 
O38 
385g 
S@6e 
"air 
a87a 
7Hen 
6698S 
591g 
6928 
63a 


", "sheep in the pen, or running”, ”"over t 
results in a zero ","score” 

PRINT 

PRINT 

PRINT "Any number of players can play ", 


turn": PRINT 


PRINT "Press any key to start": PAUSE @ 
RETURN 

RESTORE : FOR x=USR "a" TO USR "a"+87 
READ n: POKE x,n 

NEXT x 

DATA 2,9,2,135,126,124, 238,149,9,9,64, 22 


55126, 62,193, 169,8,5, 8, 6,127, 254, 126,37,9, 8,8 
196, 254,127,126,164 


6848 


126, 


6854 


si,i, 


DATA ty tata iw tie lp 4y 128, 128, 128,128, 126 
128,128,255,9,8,.9,8,9,9,9 

DATA 255,128, 128,126, 128,128, 128,128,255 
1y1,1,1,1,128,128,128,128, 126,128,128,25 


SpA sell et 255 


696o 


RETURN 
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Picture Pairs 


This is one for the kids, testing their powers of observation and memory. 
There are ten pictures of various objects displayed on the screen for a few 
seconds. They are then hidden from view. When you choose one of the 
squares the picture is revealed and you must then identify the square 
behind which the corresponding image is hidden. If the two pictures 
chosen do not form a pair, they are once again hidden and no points are 
scored. 


19 REM ¥% HI-RES PICTURE PAIRS @1 
983 MICHAEL BEWS 

15 POKE 23699,119¢ 

2@ FAPER 3S: INK it 

25 LET LS=19@: LET TT=@: LET TS=6 

3@ DIM A(12,72): DIM Q(2G): DIM R(2G): DIM 
T(29): DIM U(2e) 

49 GO TO 698¢ 

49 REM ** DISPLAY PICTURES ** 

5@ PAPER 6: INK 6: CLS : PRINT PAPER 73 IN 
K 13 INVERSE 13" FAIRS @1983 MICHAEL BE 


6@ FOR K=1 TO 16: PAPER K/2: INK K/2: FOR L 
=@ TQ 7: FOR M=i1 TO 9 

78 POQKE USR CHR®S (143+M)+L,A(CODE GS(K)-64, 
L¥9+M) 

88 NEXT Ms NEXT L 

OO LET X=CODE D#(K¥2-1)-64: LET Y=CODE D#(K 
¥2)-64 

1998 PRINT AT Q(X) ROX) § "ABC"FS AT Q(X) +1, RIX) 5 
"DEF"SAT Q(X)42,R(%) 5 "GAI"S 

11@ PRINT PAPER 63 INK 63AT Q(Y),R(Y)5 "ABC" 
SAT QCYIF1I ROY S "DEF"F AT QCY) +2, R6Y)5 "GAI"S 

12a NEXT K 

125 PAPER 7: INK 1 

139 LET A=-4@: LET B=-A 

19494 FOR Y=160 TO 4@ STEP A 

15@ FOR X=23 TO 286 STEP B 

16a PLOT %,Y: DRAW 27,98: DRAW @,-27: DRAW -2 
7,8: DRAW 6,27 
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178 NEXT X: NEXT Y¥ 

2068 LET W=57+INT (RND¥3): LET Z=22595 

219 FOR X=1 TO 9: FOR Y=1 TO 26: POKE Z+T(Y) 
+tU(X) Wi NEXT Y: NEXT X 

228 PRINT FAPER 6; INK @3AT 1,45"1"3AT 1,93 
"2"SAT L,149"3"FAT 1,195 "4"SAT 1,245 "S "GAT 3, 
Bi"S"FAT B,Os"7"5AT 13,45 "B"ZAT 18,95°9"5 PAP 
ER 23 INK 73AT 6,273"TRIES"$ PAPER 13AT 9,273 
"SCORE"; 

23@ FOR X=5 TO @ STEP -1: PRINT AT 18,393 IN 
K 7} PAPER 23 FLASH 1;X;: FOR Y=1 TO 259: NEX 
TY: NEXT X: PRINT AT 18,385 PAPER 63" “ 

249 PRINT AT 26,03 INVERSE 13; "ENTER ROW/COLU 
MN NUMBERS TQ TRY FOR A MATCHING FAIR OF PICT 
URES " 

259 LET W=18: LET Z2=22595 

26@ FOR X=1 TO 2@: FOR Y=1 TO 9: POKE Z+T(x) 
+U(Y) Wi NEXT Y: NEXT X 

27@ INPUT INVERSE 1; "ENTER FIRST PICTURE(eg 

82) ";Xs: IF x#="" THEN GO TO 278 

289 IF LEN X#<>2 OR X#(1)<"1" OR X#(1)>"9" O 
R X#(2)<"1" OR X#(2)>"9" THEN GO TO 276 

298 GO SUB 54g 

309 IF P<1 OR FP>2@ THEN GO TO 279 

392 IF SS(P)="1" THEN GO To 274 

385 LET @=P: LET SA=P 

387 FOR X=1 TO 9: POKE Z+T(P)+U(X),4@! NEXT 
x 

31@ INPUT FLASH 13 INK 2; "ENTER NEXT PICTUR 
E(eg 82)"3xX: IF X#="" THEN GO TO 319 

32@ IF LEN xX#<>2 OR X#(1)<"1" OR XB(1)>"9" O 
R X#(2)<"1" OR X#$(2)>"9" THEN GO TO 3198 

338 GO SUB 549: IF P<i1 OR P>2@ THEN GO TO 3 
1g 

332 IF S#(P)="1" THEN GO TO 319 

335 FOR X=1 TO 9: POKE Z+T(P)+U(X),48: NEXT 
x 

349 LET SB=P: FOR X=1 TO 19: IF (D#(X¥2-1)=C 
HR# (SA+64) AND D&(X¥2)=CHR® (SB+64)) + (DS (X¥2 
~1)=CHRS (SB+64) AND D%#(X*¥2)=CHR® (SA+64)) TH 
EN LET V=57: LET TT=TT+i: LET TS=TS+1: PRINT 

AT 7,293 TTIAT 18, 295TS3: LET SS(SA)="1"! LET 

SS(SB)="1": GO TO 49a 

35@ NEXT x 
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368 LET TT=TT+1: PRINT AT 7,293TT3: LET V=W 
4908 GO SUB 520 

495 FOR X=1 TO 26: IF S#(X)<>"1" THEN GO TO 
279 

419 NEXT X 

420 REM ** END OF GAME ROUTINE 

439 IF &LS>TT THEN LET LS=TT 

449 PRINT AT 26,965" 

"SAT 2 

@,&; INVERSE t3;"yYOU TOOK “;TT$" TRIES THIS TI 
ME. LOWEST SCORE THIS SESSION: "3LS3 

459 INPUT FLASH 15; "PRESS <ENTER> FOR NEXT G 
AME": X# 

460 LET TT=8: LET TS=9 

478 GO TQ 442 

519 REM **WRONG GUESS ROUTINE 

S209 FOR X=1 TO 9: POKE Z+T(@)+U(X%),V:s NEXT X 
: FOR X=1 TO 9: POKE Z+T(P)+U(X),V:i NEXT X: R 
ETURN 

529 STOP 

530d FOR X=1 TO 9: POKE Z+T(P)+U(X),57:5 NEXT 
x: RETURN 

539 REM ** ROW/COLUMN INPUT 

54@ LET A=8: LET B=@: LET A=(VAL X#(1) AND (¢ 
CODE X#(1)>53 AND CODE X#(1)<58))+(VAL xX#(2) 
AND (CODE X#(2)>53-AND CODE X#(2)<52a)) 

55@ LET B=(VAL X#(1) AND (CODE X#(1)>48 AND 
CODE X#(1)<54))+(VAL *¥#(2) AND (CODE X#(2)>428 
AND CODE xX#(2)<54)) 

S460 LET P=5*¥(A-6) +B 

578 RETURN 

see STOP 

59 REM ¥* INITIALISATION 

699 CLS : PRINT PAPER 73; INK 13 INVERSE 13" 

PAIRS @1983 MICHAEL BEWS " 

685 PRINT AT 2,9; PAPER 73 INK 45 FLASH 13 "I 
NITIALISING"; FLASH @3 INVERSE 15 INK 15AT 4, 

3” THIS PROGRAM DISPLAYS TEN PAIRS OF HIGH R 
ESOLUTION PICTURES AND THEN CONCEALS THEM FRO 
M VIEW. "SAT 9,93" THE OBJECT OF THE GAME IS 
Ta MATCH ALL TEN PAIRS IN THE LOW- EST PO 
SSIBLE NUMBER OF TRIES. - 

61@ FOR X=1 TO 11: FOR Y=1 TO 72: READ A(X,Y 
>}: NEXT Yi NEXT X 
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626 FOR xX=1 TO 2@: READ @(X): NEXT X: FOR X= 
1 TO 2@: READ R(X): NEXT X 

638 FOR xX=1 TQ 20: READ T(X): NEXT X: FOR X= 
1 TO 9: READ U(X): NEXT * 

648 LET DS="9enGadagRgggggg9gGGG0G": LET SS=DS 
: LET E@=D%: LET FR="O88E9GG9G9GGGR": LET GS=FH( 

Ta 18) 

695 PRINT AT 15,4: PAPER 73; INK 23 FLASH 13” 
NEXT GAME IN 25 SECONDS " 

7848 FOR X=1 TO 19 

Zig LET N=1+INT (RND¥11) 

728 IF FSe(N)="1" THEN GO TO 7198 

7308 LET FS@(njp="1" 

748 LET NA=1+INT (RND¥29) 

745 IF ES(NA)="1" THEN GO TO 749 

758 LET ES(NA)=H="1"2 LET GS(X)=CHRS (64+N) 

768 LET NB=1+INT (RND*¥29) 

778 IF E®(NB)="1" THEN GO TO 769 

780 LET ES(NB)="1"2 LET DS(X¥2-1)=CHRS (64+N 
A): LET D®(X*¥2)=CHRS (64+NB) 

798 NEXT X 

egg GO TA 5a 

9983 STOP 

999 REM ¥¥* ship 

108@ DATA 9,9,9,9,9,8,15, 255, 224,9,9,9,3,128, 
8,9,89,9,9,9,9,3,128,8,9,9,9,9,8,8,15,255,8,9, 
By Go G,H,G8,15,255,8,5,9,98,8,9,8,63,255, 252,959,959 
352,;9,9,8,63,255, 248,6,9,8,8,86,8,31,255,249,5, 
O,8 
1999 REM ** helicopter 
191@ DATA 8,9,9,9,7,128,8,255,252,9,6,9,9,12, 
192,G,B,By By GBB, PG, 24, 965 G85 9,8,9,9,127, 2448, 
112,4,4,8,9,9,9,111, 255, 224,9,8,%,8,127,249,3 
9255,192,0,8,9,8,2,8,9,127,128,8,9,9,9,2,9,5, 
6,4,9,8,¢8 
19619 REM **¥ bus 
1820 DATA 8,8,8,058,8,6911,224,89,9,9,65,255,2 
52,24,89,192,8,6,G, 36,16,84,5,G,8,8,859, 56516, 
84,85 G5G,GsGsG5356,16,84,9,9,9,5,95 
45858585 GGG, G63, 255,219,959 ,8,95,5, 
214,6,9,6 
192? REM ¥* railway engine 
1G3@ DATA 4,8,4,12,3,128,7,131,192,8,9,9,12,1 
95,128,3,1,128,9,9,8,31,255,128,9,9,9,9,9,9,3 


9, 63,255,21 
@,@,127,255, 
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1,255, 246,9,09,9,9,9,6,31,255, 249,9,09,9,4,3,24 
@,31,255,249,6,9,9,4,2,1278,15, 255, 249,9,9,9,1 
2,2,128,31,255,249,9,9,9 

1639 REM ** tree 

1844 DATA 3,15,8,127, 255, 252,9,69,9,3, 255,192 
963, 255,188,9,69,0,15, 255, 249,55, 247, 248,9,69 
34,15, 255, 248, 31,463, 248,6,69,9,126,255,126, 31 
369, 248,9,69,9,127,255, 254, 24,69,48,9,469,8,25 
5332555 252,9,68,8%,9,608,98,127,223,252,9,69,9,8, 
69,9 

1¢49 REM ** car 

1958 DATA G,9,9,0,127,6,12,9,24,0,0,9,9,132,1 
2859,9,9,5,5,9,154,64,9,9,9,G,9,9,52,54,32,9,9G, 
G,9,9,9,127,255,255,9,9,9,89,9,9,63,255,255,9G, 
G,G,8,9,9,127,255,254,9,9,4,8,9,8,39,9,69,9,9 
32 

195° REM ** television set 

1968 DATA 6,9,9,48,9,194,48,9,194,9,9,9,48,.9, 
129,63,255,248,9,9,9,48,9,194,63,255,248,9,G, 
9,48,9,129,9,9,9,9,9,9,49,48,194,9,9,9,9,9,9,4 
8, 9,129,9,8,9,63, 255, 248,48,9,194,9,9,68,63,25 
5,248,48,9,129,9,9,¢ 

1@g79° REM ** flying goose 

1989 DATA @,9,9,9,129,0,1.59,9,9,9,9,9,124,9,3 
39,9,9,.9,8,9,124, 249,9,9,69,9,9,0,96,125,2716,9 
39,0,1,224,0,127, 255, 252,9,9,9,9,248,9,127,25 
9,255,9,9,0,0,248,6,15,255,128,9,9,9,9,248,9G, 
7,255,9,9,9,08 

1989 REM ** tank 

1999 DATA 6,9,9,64,3,9,51,51,48,9,9,9,64,255, 
@,63,255,249,9,9,4,65,255,128,12,294,192,98.4, 
G8, 67,98,255,0,8,8,64,9,8,79,255,192,9,9,59,64,.9 
9%, 255, 255,249,9,9,9,64,9,9,255, 255, 248,9,9,¢9 
364,4,8,127,255,252,9,9,9 

1g99 REM *¥*¥ clock 

28489 DATA 3,9,9,9,64,1494,8,66,16,9,9,9,8, 32,1 
6,9,24,16,9,9,9,8,16,16,8,9,16,15, 255, 249,19, 
15, 88,15, 255, 248,8,9,1658,8,16,5,9,G, 85 24,16, 
&,9,16,9,9,9,8,66,16,9,48,144,9,9,0,8,9,16,8,9 
»16,9,9,8 

2409 REM ¥* apple 

2619 DATA 9,9,9,1,255,128,3,255,192,9,9,9,3,2 
92,192,1,255,128,9,192,8,3,159,192,9,255,9,4, 
32,0, 7,255, 224,08, 69,0,0,16,9,7,255,224,9,9,.5, 
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B,16,8,7, 255, 224,9,5, 9,8, 69,8, 7, 255, 224,5,5,5 
,9,255,9,3,255,192,9,8,8 

2819 REM ¥¥ SCREEN PRINT AT X,Y 

2eeh DATA 2y.2, 2.2, 2s PV 7 oP ieee 1 Oe 12y 12,42, 12, 
17,4024 te te et 

2O3SG DATA 3,8,13,18,23,3,8,13,18, 23,3,8,13,18 
123, 398413,418, 23 

2939 REM ** ATTRIBUTE PRINT AT 

2849 DATA B,5,14,15, 28,168, 165,176,175,188,32 
@, 325, 338, 335,348,489,485, 499,495,599 

2G58 DATA @,1.2,32,33,34, 64,65, 66 
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Dambusters 


Dambusters is a game in which you have to defend a dam which is under 
attack from enemy aircraft, armed with bouncing bombs. Each bomb 
which succeeds in hitting the dam will blow a section of it away until 
eventually the water pours through and the game is over. 


Your defence consists of two beam guns which are mounted at each side 
of the dam and which fire converging ray beams at a target sight 
controlled by the player. Since the aircraft are out of range, you must aim 
the bouncing bombs themselves by moving your sight up, down, right or 
left and then use the zero key to fire. Unfortunately your beam weapons 
need to be recharged after every three firings and therefore accuracy is 
vital, especially as there is a strong wind which has a tendency to blow 
your sights off course! 


1 REM @ PAUL STANLEY 
2 LET hs=9 
S BORDER 1: PAPER 1: INK 7: CLS 
8 GO SUB 8gEgd 
ig GO SUB igg¢g 
15 PRINT AT 9,93 BRIGHT 15 "SCORE: 9" 
1? PRINT AT 9,20; BRIGHT 13 "HI-SCQRE: “sha 
228 PRINT AT 20,93 INK 3j“sie:: sisteveis 


25 FOR f=1 TO 5@: PLOT RND¥255,175-RND¥139: 
NEXT # 
38 LET 9=@: FOR #=1 TO 5: PLOT g,15+#: DRAW 
255-2%9,9: LET g=9+2! NEXT # 
48: PLOT 9,16: DRAW 126,20: PLOT 255,16: DR 
AW -128,20 
58 PLOT 8,16! DRAW 8,9: DRAW 2,9: DRAW 4,4: 
DRAW 1,-1: DRAW -4,-4: DRAW 2,-8 
55 PLOT 255,16: DRAW 9,9: DRAW -2,9: DRAW - 
4,4: DRAW -1,-1: DRAW 4,-4: DRAW 2,-8 
7@ LET d=1 
72 LET s=g 
8g LET a=1 
85 LET p=16 
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99 LET y=9 

935 LET x@®INT (RND¥20) +6 

97 FOR #1 TO S STEP 2: PRINT OVER I5AT 5S, 
x3 INK 635% (f)46S(f+1)5 BEEP .1,-28: PRINT O 
VER LIAT 5S, xs O*( Ff) sbSlF+i)s NEXT £3 FOR f=1 T 
QO 4: PRINT OVER 13AT S-f,x5 INK 636%(5) 5 b#(6 
VSAT S+f#,xi"B"*: BEEP .1,-28: PRINT OVER 13AT 
S-#,xsbS(5)3bS(6)3AT S+#,xzp"B"s NEXT F 

98 LET f=INT (RND¥25) +3: LET g=S+INT (RND*¥1 
1) 

199 LET a@="ABCDEFA": LET ht=19 

129 PRINT OVER 15AT y,xjat(a) 

122 LET f=®f+(INKEY#="8" AND £¢29)-(INKEY#="5 
" AND £22): LET g=g+(INKEY$="6" AND g9<17)-(IN 
KEYS="7" AND g>3) 

125 PRINT OVER 13AT 9,43 INK S5p"+" 

126 LET loss=loss+leek 

127 IF loss>1g@g@@ THEN GO TO 49g 

128 IF INKEYS="9" THEN IF s<3 THEN GO SUB 
282 

139 BEEP .93,-y 

148 PRINT OVER 1;5AT y,xfaG(a) 

145 PRINT OVER 13AT g,f3 "+" 

158 LET y=yt+d 

155 IF RND>.6 THEN LET f€+INT (RND¥1.5) ~-IN 
T (RND¥1.5) 

157 IF RND<.¢ THEN LET g=g+INT (RND¥1.5 AND 

9¢18)-INT (RND¥1.5) 

169 IF ysht THEN LET p=pti: LET d\=1: LET a= 
atl 

170 IF y=p THEN BEEP .15,-20: LET a=at+i: LE 
YT d#-1i:; LET ht=ht-3 

18@ IF a=? THEN GO TO 35g 

19g GO TO 124 

299 LET k=™(21-g)¥8-25:; QVER 1: PLOT 6,29: DR 
AW #%8-2,k: BEEP .@3,30: BEEP .93,498: PLOT 64, 
29: DRAW £#8-2,k 
295 LET s=s+l 
21@ PLOT 249,29: DRAW £*8-245,k: BEEP .93,39 
> BEEP .9@3,49: PLOT 249,29: DRAW £*8-245,k: O 
VER @ 

215 IF g=™y THEN IF x=f THEN GO TO 3989 
220 RETURN 
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399 LET sc=sctid: PRINT AT 3,63 BRIGHT 1ljsc: 
PRINT AT g,ff§ INK 63 "4": BEEP .98,-198: BEEP 
-98,-12: BEEP .98,-8: BEEP .98,-12: PRINT AT 
g,fi" "3: GO TO 79 

359 FOR ae-i TO 5: BEEP .@@1,29: BEEP .991,49 
: NEXT a: IF SCREENS (19,x)=" " THEN GO TO 3 
7o 

362 PRINT AT 19,xi" ": GO TO 72 

374 IF SCREENS (20,x)<>"“:" THEN GO TO 399 
375 LET leek=leek+l 

38 PRINT AT 28,xj" "“3AT 21,xi PAPER Ss FLAS 
H 13 "6"; GO TO 7g 

399 LET leek=leek+2: PRINT AT 19,x-1j" “GA 
T 28,x-15" “SAT 21,x-13 PAPER 53 FLASH 135 "°G 
66": GO TO 79 

492 PRINT AT 198,53;"- GAME OVER -" PR 
INT AT 13,2; "Press any key to play again.": F 
OR f=1 TO 28: BEEP .93,#: NEXT f 

495 IF sc>hs THEN LET hs=sc 

419 IF INKEY#<>"" THEN CLS : RESTORE : GO T 
Oo 198 

423 GO TO 419 

1998 FOR #=USR “a" TO USR “1"%+7: READ 6: POKE 
#,6: NEXT f 

1961 LET loss=9@: LET sc=9: LET leek=¢ 

19128 DATA 9,9,9,16,9,9,9,9,9,9,9,24,24,9,9,9 
1M11 DATA 9,8,9,56,546,9,9,9,9,9,9,69,69,69,30, 
g 

1912 DATA 9,9,126,126,126,126,9,9,9,9, 254, 254 
9 294, 254,254,90 

1913 DATA 73,BIN 189919918,73,37,BIN S19G1G1G, 
BIN 19919001, BIN @1GG1G1G,BIN 19981991 

1914 DATA 153,58,36,219, 219, 36,58, 153 

1916 DATA 8,9,9,8,42,9,0,9,9,9,24,255,66,9,2, 
g 

1917 DATA @,9,1,255,37,9,8,08,0,8,128,255, 164, 
G,3,f 

1918 LET bS="7 7 AL" 

1929 RETURN 

8999 PRINT AT 9,5;"D AM BUS TER S"3 OVER 
1jAT 8,535" _"3 INK S3AT 72,7 
1"“@ Paul Stanley." 

8819 PRINT *“THE YEAR IS 1943. YOU ARE IN 
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CHARGE OF A POWERFUL BEAM WEAPONWITH WHICH YO 
U ARE TO PROTECT A DAM FROM THE BOUNCING BO 
MBS OFTHE BRITISH ATTACKERS. THEY HAVESEVERAL 
LANCASTER BOMBERS WHICH FLY TOWARDS YOU AND 
RELEASE THEIR DANGEROUS BOMBS. " 
8828 PRINT *"“HOWEVER, YOUR TASK IS NOT ALL 
THAT SIMPLE FOR YOUR WEAPON IS UNABLE TO REA 
CH THE LANCASTERS SO YOU MUST JUST SHOOT AT 
THE BOMBS INSTEAD. YOU CAN MOVE YGUR CR 
OSS-HAIR SIGHTS WITH THE CURSOR KEYS.” 
8925 PRINT *“PRESS ANY KEY TO CONTINUE.": PAU 


SE 9: CLS 
8938 PRINT “EVEN ADJUSTING THE SIGHTS IS D 
IFFICULT BECAUSE THERE IS A STRONG WIND WH 


ICH CAUSES YOUR SIGHTS TO MOVE ABOUT." 
8245 PRINT *"FIRE YOR BEAM WITH “"9"%"": PRINT 


8858 PRINT “BECAUSE OF THE POWER OF YOUR W 
EAPON AFTER 3 SHOTS IT IS DRAINED OF POW 
ER AND WILL ONLY BE READY BY THE NEXT TIME A 
N AEROPLANE ATTACKS. YOUR BATTLE IS OVER 
WHEN TOO MUCH WATER HAS POURED THROUGH THE BR 
OKEN DAM. "’* "PRESS ANY KEY TO START” 

8096 PAUSE @: CLS : RETURN 
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OXO 


The classic game, played against the computer. But in our version the 
computer can be beaten! 


S REM NOUGHTS+CROSSES @ 1982 B 
Y MICHAEL BEWS 
19 DIM aS@(9);s DIM a(9): LET d=9: LET h2=@: L 
ET m=@: LET n=@: LET t= 
12 PAPER 1: BORDER 1: INK 7: CLS 
15 LET Y#=CHR® 143+" "+CHRS 143+" yi 
+CHRS 143+” “4CHRS 143 
20 LET 2$="BRGRRRRRRSRERERReee": REM ys AND 
z®% TO form grid 
25 FOR x=@ TO 7: READ a: POKE USR “c"+x,a: 
NEXT x: FOR x=@ TO 7: READ a: POKE USR "a"+x, 
a: NEXT x: REM USR defined x AND o 
38 GO TO 2998 
34 REM ¥¥XHHHKX main routine *##* 
3S BEEP .1,t¥4: LET t=t+1l: LET a®(n)=CHRS ( 
at+i94S): LET a(n)=SGN a: LET a=-a:i IF a¢@ THEN 
PRINT AT 19,3835" "j 
48 FOR x=@ TO 2: FOR y=1 TO 3: LET z=xX¥3ty: 
FLASH 1 AND z=n: PRINT AT S+5%¥x,3+é6¥yjas(z): 
NEXT y: NEXT xs FLASH @ 
49 REM *#*##4¥check for wWinkK##¥ 
52 FOR x=8 TO 2: IF ABS (al3¥xt+l) tai 3¥x+2) + 
a(S¥x+3))=3 OR ABS (alxtl) ta(xt+4) ¢a(xt+7))=3 T 
HEN GO TO 382 
69 IF x>1 THEN GO TO &g 
78 IF ABS (alS)+al5S+2k(xt+1) )+a(S-2#(x+1)))= 
3 THEN GO TO 398 
89 NEXT xi IF t=9 THEN GO TO 118: REM ***¥ 
Check for a drawk*** 
85 IF a<@ THEN GO TO 158: REM ***%players 
Lur nkeKe 
9B IF t>@8 THEN GO TO 76 
92 LET n=1+2#INT (RND¥S): IF n=S THEN GO T 
O 92: REM #*#*¥choose a corner square on first 
MOVERKE 
94 GO TO 35 
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9S REM *##¥*check for possible win(k=2), then 
check for possible opponent’s win (k=-2) 

96 LET k=2: LET n=9 

ig@ FOR x=9@ TO 2: IF alSk¥xtili tal 3k¥xt2) ta (Sx 
+3)=k THEN GO TO 1298 

195 IF alxt+ilitalx+4) tat(xt+7) =k THEN GO TO 13 
g 

118 IF xs2 THEN GO TO 112 

Lil IF alS)ta(S+2k(xt+lL) i ta(S-2k(x+i1))=k THEN 

GO TO 14¢ 

112 NEXT xi LET k=-k: IF k<@ THEN GO TO 128 

113 REM **¥#choose a corner square if possibl! 
e (49 attempts) X¥*¥ 

114; FOR x=1i TO 48: LET n=1i+2*INT (RND¥5): I 
Fo n¢>S AND at(n)=8 THEN GO TO 35 

115 NEXT x 

116 FOR x=1 TO 9: IF a(x)=@ THEN LET n=x: G 
O TO 35: REM ##X¥choose any vacant squareXkKKk 

117 NEXT x 

118 PRINT AT 19,135 FLASH 13; "DRAW! "3; FLASH 9G 
: LET d=dtii: FOR x=13 TO 1 STEP -1: BEEP .1,x 
-8: NEXT x: GO TO 32g 

119 REM ##*¥select the vacant square in poten 
tial win rowkkkE 

128 FOR y=3 TO 1 STEP -1: IF a(3*x+y)=9 THEN 

LET n=3k¥x+y: GO TO 35 

125 NEXT y 

138 FOR y=3 TO 1 STEP -1: IF al(x+y#3-2)=9 TH 
EN LET n®x+3#y-2: GO TO 35 

135 NEXT y 

149 IF at(S)=@ THEN LET n#5: GO TO 35 

142 IF a(S+2k(x+1))598 THEN LET n=S5+2#(x41): 
GO TO 35 

144 IF al(S-2%(x+1))=98 THEN LET n=S5-2(x+t+1): 
Go TO 35 

149 REM ¥#¥¥player’s turnkk*¥ 

158 LET x#=INKEYS: IF x#="" OR x®#<"1" OR xB 
“9" THEN GO TO 134 

168 LET n=VAL x 

178 PRINT AT 11,263" "SAT 19,2435 "You "5 
ni: IF aS(n)>"9" THEN PRINT AT 11,263 "AGAIN! 
“$3 FOR x=1 TO Si: FOR y=1 TO 3: NEXT y: BEEP 
1,38: NEXT x: GO TO 15¢ 

18g GO TO 35 
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199 REM KKXKXHINITIALISATIONKHEXEE 
268 PRINT TAB 73; "“NOUGHTS & CROSSES"JSAT 9,75 
OVER 13" = "3; OVER &@ 

219 FOR x=1 TO 9: LET a®(x)=STR® x: NEXT x 
236 PRINT : PRINT : FOR X=1 TO 3: PRINT TAB 
63 INK 6528; TAB 63 INK 45 Y8§TAB 65 INK 25 YS3T 
AB 65 INK Ss Ys TAB 6§ INK 3S Ys NEXT Xs PRINT 

TAB 63 INK 652% 

249 PRINT AT 1,13 "%I am"3TAB 25; “You are” j;AT 
3,2;"C"s5AT 3,283 "A"; FLASH @ 

258 LET a=(2¥INT (14+RNDE2) -3) 

269 LET pS="Me": IF a<@ THEN LET pt="You"” 
276 PRINT AT 2,83 p$3" to go FIRST"3: GO TO 4 
gS 

299 REM XX¥¥END OF GAME ROUTINE XE 

388 LET p#="YOU WIN": IF a<@ THEN LET ps="I 
WIN": LET m=m+1: GO TO 319 

385 LET h=h+1 

318 PRINT AT 19,1353 FLASH 13p%3; FLASH 9: FOR 

x=!1 TO 4: FOR y=!1 TO 19: BEEP .@4,y#¥2: NEXT 


y: NEXT x 

328 PRINT AT 28,83; "Scores You "“jshi" Me “5 
mj” Draw “;dsAT 21,3; "Press any key for ne 
w game"; 


336 LET x#=INKEYS: IF x#="" THEN GO TO 3398 
335 FOR x=1 TO 9: LET a(x)=@! NEXT x 

349 LET n=9: LET t=@: CLS : GO To 29a 

359 DATA 24,126, 192,195, 195, 192, 126,24,129,1 
95, 182,68, 24,60, 192,195 
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Space Traffic 


As you travel about in the midst of an asteroid belt recovering lost satel- 
lites (well, someone has to do it), you are assailed by missiles and enemy 
spacecraft which you can either dodge or attack. Movementis either to 
left or right using the Z and X keys and your cannon can be fired with the 
M key, although this will lose you points. 


The satellites are collected by manoeuvering your spaceship into them 
and points are gained for each one which you manage to recover. 
Collision with other objects results in destruction, although you are 
alloted five lives at the start of each game. 


1 BORDER &@: INK 6: BRIGHT 1: PAPER @: CLS 
1g GO SUB 99888 
26 GO SUB 88a8m8 
S@ LET hs=g 
78 PRINT FLASH 13" ----- ASTEROIDS DETECTE 
DS 525 “s FOR F=1 TO 4: FOR d=-28 TO @: BEEP 
-82,d: NEXT di NEXT fF 
98 LET xi=x 
196 LET x=x+(INKEYS="*x" AND x<26)-(INKEYS="z 
“ AND x>5) 
195 IF (ATTR (7,x)=71 OR ATTR (7,x)=66) THEN 
IF SCREEN® (7,x)="" THEN LET hit=1 
167 IF ATTR (7,x)=68 THEN FOR d=@ TO 6@ STE 
P 26; BEEP .@1,d: NEXT di: LET sc=scr+l 
118 POKE 23692,255: PRINT AT 6,x13" "SAT 21, 
S13" "3 INK 43AT 6,x3 "A" 
1i2 IF q=6 THEN IF w=x THEN BEEP .91,29: B 
EEP .@1,1@: BEEP .@1,28: GO SUB 419¢ 
115 IF hit=1 THEN LET hit=@: BEEP .1,-19: G 
GO SUB 419¢ 
117 IF INKEY$S="m" THEN GO SUB 599g 
12@ LET I=INT (RND¥3@):5 LET g*(INT (RND¥3) ¥2 
)+13 PRINT INK 7$AT 29, 1ljasl(g TO gt+1)5AT 21, 
l;bS$(g TO gtl1) 
125 IF c>4@@ THEN LET I=INT (RND¥30): LET g 
=CINT (RND¥3)%2)+1:5 PRINT INK 7jAT 28, ls asi(g 
TO gt1)GAT 21,13 b%(g TO gl) 
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13@ IF c=29@ THEN LET at="COB K "; LET b=" 
LF . 

135 IF c=38@8 THEN LET a®="CDCDCD": LET bS=" 
LFEFEF" 

149 IF RND>.6 THEN PRINT INK 43AT 21,RND¥3 
o;"6" 

159 IF RND<.4 THEN PRINT INK 2;3AT 21,RND¥S 
Oo; "A" 

169 IF ATTR (8,x)=66 OR ATTR (9,x)=66 OR ATT 
R (198,x)=66 OR ATTR (11,x)=66 THEN GO SUB 49 
i257) 

185 LET c=c+i 

187 IF c>49@@ THEN GO TO 99 

199 LET gq=q-2: PRINT INK SSAT gqyws "Z"SAT Qt 
l,ws" “2 IF q=@ THEN LET q=29: LET w=x 

29g GO TO 99 
4998 LET d=88X(ATTR (11,x)=66) +96 (ATTR (19,x 
Y=56) +1B4H(ATTR (9,x)=66) +11 2K(ATTR (8,x) #64) 
: IF d>Li2 THEN LET d=11i2 
4995 PLOT x¥8+3,d: DRAW INK 639,129-d: FOR f 
=35 TGQ 49: BEEP .9@2,4: NEXT #: PLOT OVER 15 
x¥8+3,d: DRAW OVER 159,129-d 
4199 FOR g=1i1 Tao 2: FOR #=5 TO @ STEP -1: PRIN 
T AT €,x-Stfg". "GAT £,xt5-F5"."3AT 19-4,x-S+F 
P°. "SAT 10-F,xt5-F5". "5 AT F£,x5"."5AT 18-F,x5" 
TEAL Syke S fae AT Sy XeSe hha 
4119 NEXT #: GQVER 1: NEXT g: OVER 9: PRINT AT 

3x7" * 

413@ LET lis=li-1: PRINT FLASH 13AT 9,953 "LIVE 
S'LEFT: "“;1i; TAB 23; "SCORE: "$sc: FOR #=-39 TO 
@: BEEP .92,f: NEXT f 

4135 IF li<>@ THEN RETURN 

4137 FOR f=1 TO 4: BEEP .3,9: BEEP .6,19: FOR 
g=1 TO 20: NEXT g: NEXT fF 

4149 CLS : PRINT AT 5,93"You Scored "“;sci" po 
ints.” 

4145 PRINT ’’"“The high-score is "“jhsj"." 

4159 IF sc>hs THEN LET hs=sc: PRINT INK 5°’ 
"Congratulations! "*"That is a new high score 

4169 PRINT INVERSE 1°’*’"PRESS ANY KEY TO PLAY 

AGAIN." 

417@ PAUSE @: CLS : GO SUB 9599: GO TO 7¢ 
5999 LET sc=sc-1: FOR f=? TO 17 
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5818 PRINT AT #,x3"." 
5929 PRINT AT #,xs" # 
THEN GO TO S939 

5925 NEXT + 

5930 IF ATTR (#4#1,x)<>71 THEN RETURN 

5949 PRINT AT f#+1,xj“ "i FOR d=1 TO 3: BEEP . 
@3,-28: NEXT d 

5959 IF RND>.4 THEN RETURN 

5955 LET t=INT (RND¥4)41 

5969 FOR d=@ TO ti: PRINT AT #+1i-d,x-dj INK 73 
“BYSAT f4+1-d,x+ds"B"ZAT F414+d,x-ds"B"GAT F414 
d,x+d3"B" 

5865 BEEP .93,-49 

5070 IF d<t THEN PRINT AT #+1-d,x-di" "JZAT # 
+l-d,xtdj" "GAT f414d,x-dj" "SAT f+1td,xt+d;" 

S989 NEXT d: RETURN 

8999 PRINT INVERSE 13" SPACE TRAF 
Pil wren BY PAUL STANLEY 


8919 PRINT INK 7’ "You are flying through spa 


BEEP .961,3¢ 
IF SCREEN® (f+1,x)—"" 


ce when suddenly you encounter an asteroi 
d belt.” 

8829 PRINT INK 4°? "Enemy craft will fire at y» 
ou given the chance, and other missile 
S$ are aimed right at you.” 

8939 PRINT ’"To score you have to recover 


lost satellites in your craft.” 

8949 PRINT INK 5S’"If you are desperate, you 
can fire at asteroids, but you lose a satel 
lite in the process.” 

8959 PRINT *"Move left with Z, right with X, 
and fire with M* 

8869 INPUT PAPER 63 INK 33" PRESS ENTER 
TO START "3; LINE q@ 

8878 CLS : RETURN 

9869 FOR x=USR “a" TO USR "k“+7: READ y: POKE 
xsys NEXT x f 

9G19 DATA 254,124,498, 124,48,56,16,16,9,48,72, 
84,72,48,9,8,1,2,49,64, 169, 132,136,129 

9G28 DATA 224,152,8,136,79,9,17,145,139,144,1 
21,5,4,5,6,3, 133,35, 29,72,16,32,32,192 

9G3G DATA 129, 44, 69,36, 346, 69,66,129,16, 16,56, 
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84, 84,56, 16,124,8,16,8,16,52,16,16,56 

9B4G DATA 24,54,41,66,169,138,84,56,38,91,162 
, 152,138, 186,68,4 

9599 LET at="B J AK ": LET bS=" “: LET x= 
15: LET c#@: LET hit=@: LET sc#@ 

9519 LET g=2@: LET wex: LET 1i=5 

9788 RETURN 
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Dam Eaters 


The object of this game is to prevent the dam-eating creatures from 
eating away the dam which is built up on the left-hand side of the screen 
by dropping shells on them from any of the three cannon at the top. The 
dam eaters enter randomly from the right of the screen and gradually 
chew away the bricks of the dam until finally they break through and you 
have lost the game. The game contains a number of other features which 
you will have to discover by experience. 


1 BORDER @: PAPER @: INK 7: CLS 
5 LET hs=¢ 
1g GO SUB 9gaa 
15 GO SUB 79899 
17 GO SUB 982g 
28 GO SUB sea 
3@ FOR i=1 TO n 
4@ LET x(i)=x(i)-1: IF RND>.8 THEN GO SUB 
igag 
5@ PRINT AT y(id,x(ids} INK i4+35"DE “ 
68 IF ATTR (y(i),x(i)-1)=22 THEN GO SUB 28 
oe 
89 NEXT i 
98 LET q$=INKEYS 
198 IF NOT b THEN IF g%<>"" THEN LET g=(VA 
L g®)¥6+2: LET si=VAL q$: LET f=@: LET b=1: B 
EEP .91,38: IF 9<>8 AND 9<>14 AND 9<>2@ THEN 
LET b=@ 
11@ IF NOT b THEN GO TO 38 
115 FOR i=1 To 2 
1499 PRINT AT f,93" " 
159 LET f=f+1: IF f=21 THEN GO TO Saga 
169 IF SCREENS (f,9)="" THEN GO TO 3992 
178 PRINT AT #,95"1[" 
199 NEXT i 
208 IF n<3 THEN LET cec+i: IF c=13@ THEN L 
ET n=n+1: LET c=@: PRINT AT 17,8; "ENEMY REINF 
ORCEMENT": FOR i=! TO 39: BEEP .@3,i: NEXT i: 
PRINT AT 17,83" " 
999 GO TO 39 
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1990 PRINT AT yC(i),xids” . 

1995 LET ytilsy(i)+i1-(2 AND RND>.5) 

19io IF y(i)=@ THEN LET y(i)=2¢g 

1928 IF y(i)=21 THEN LET y(id=1 

19390 RETURN 

2600 PRINT AT y(i),xti)d-153 BRIGHT 15 "F6": BEE 

P .@€3,5: PRINT AT y(i)d,xtid-1j BRIGHT 13 "GF": 
BEEP .93,9 

2819 PRINT AT yli)d,x(i)d-is" " 

29020 IF SCREENS (y(i),x(i)-2)=" " THEN GO TO 
499d 

29390 LET y(i)d=INT (RND¥29)+1: LET x(i)=29 

2949 RETURN 

38GG PRINT AT #,9-13 BRIGHT 13"fGF": FOR o=3 

TO 9 STEP 3: BEEP .@1,0: NEXT a: PRINT AT f,9g 
-1; BRIGHT 15"6fG": BEEP .@5,25: PRINT AT f,9 
=15" 

39905 LET sc=INT (sctsl¥2t+f/3)i: PRINT AT @, 293 

sc 

3419 LET beg 

3915 FOR i=1 TO n 

3928 IF f=y(i) THEN IF g=x(i) OR g=x(i)+1 TH 
EN GO TO 35998 

3830 NEXT i 

35a@ LET y(id=INT (RND¥290) +1: LET x(i)=29 
351g GO TO 3¢ 

4998 FOR o=2 TO S: PRINT AT y(i),o§ INK 13 "B" 
> BEEP .97,-28: NEXT o 

4919 FOR o=y(i) TO 28: PRINT AT o,535 INK 15" 
“3 BEEP .97,-28: NEXT o 

9920 FOR o=2¢g TO @ STEP -1:5 PRINT AT 0,535 INK 
1} "RSERASRERERSRRERRRR” 

4925 BEEP .97,-29 

4933 IF SCREEN® (0,4)=" " THEN PRINT INK 135 

AT 0,43 "m8" 

$948 IF SCREENS (0,3)=" “ THEN PRINT INK 13 

AT 0,33 "8" 

4g3a NEXT o 

4955 PRINT PAPER 13 INK 63AT 4,463 "You Scored 
"“s;sc3" Points." 

4969 IF sce>hs THEN PRINT AT 6,46§ PAPER 15 IN 

K 63"Well Done! That’s A New"SAT 7,63 "High Sc 

ore! !"3; LET hs=sc 
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4978 PRINT PAPER 13 INK 6j3AT 9,463 "The High-S 
core Is "“j;hs 

4989 PRINT PAPER 13; INK G;5AT 11,65 "PRESS A K 
EY TQ PLAY AGAIN" 

4999 IF INKEYS="" THEN GO TO 4999 

949198 CLS : GO TO 17 

S968 PRINT AT 28,93 INK S3“JZJ": BEEP .1,-38: P 
RINT AT 28,95" " 

9918 LET b=g: GO TO 39 

78988 PRINT AT 9,65"D AM EATERS . 
7928 FOR f=29 TO 4 STEP -1i: PRINT INK 5S;AT 2 
sf§5 "DE “> BEEP .93,-28: NEXT #F¢ 

79838 PRINT AT 2,353 BRIGHT i; "4G": BEEP .983,5: 
PRINT AT 2,33 BRIGHT 15 "GF": BEEP .83,5: PAU 

SE 25: PRINT AT 2,9;" : 

7835 CLS : PRINT AT 9,65"D AM EATERS 


78498 PRINT INK 63AT 2,983"Can you prevent the 


dam from being broken by the dam eaters?” 
7858 PRINT INK 5’? "Release bombs from any of 

the 3 cannons above the dam with the ke 
ys 1-3." 


7869 PRINT INK 4’? "There are several more fe 
atures which you will have to wait to findo 
wt 

7878 PRINT INK 6’? “Press any key to start": 
PAUSE 9: CLS :; RETURN 

8998 DIM y(3): DIM x(3) 

8G19 LET sc=9: LET b=9 

89629 LET n=1: LET c=9 

89328 FOR i=1 TO 3: LET y(i)=INT (RND¥29) +1: L 

EY x(i)=29: NEXT i 

8499 RETURN 

9998 FOR f=USR “a" TG USR "i"+7: READ g: POKE 
#,9: NEXT f 

PHI DATA 119,119,8,221,221,89,119,119,9,221,2 

21,9,119,119,9,221,221,89,119,119,9,221,221,9 

9828 DATA O,255,171,89,8,171,255,9,28,39,255,2 

55,255,255,9,9 

9O3B DATA 96,18,193,29,191,128,51, 149,194,49, 

67,24,138,49,67,16 

9849 DATA 63,31,15,7,3,3,1,1 

FOB4S DATA 2,196,498, 23,232, 16,231, 24 
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9899 FOR #=@ TO 28 STEP 3: PRINT INK 63 PAPE 
R 2iAT £,23"AAA"ZAT F41, 25 "BBB"GAT F+2,25 "CCC 
“s NEXT # 

9895 FOR ¢=@ TO 24: PRINT INK Lj3AT £,95 "MM": 


NEXT f 
9819 FOR f=@ TO 31: PRINT AT 21,5 INK 15 "mM": 
NEXT # 

982@ PRINT INK 33AT 98,75 "4 H# “#" 


983 PRINT AT 9,23; "Score: 9g" 
9999 RETURN 
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Buzzy Bee 


In Buzzy Bee you control a small bird which pecks away at the stems of a 
row of plants which are gradually growing towards the top of the screen. 
If any of the plants should reach the top a bee will drop down and take 
the nectar and you have lost the game. 


The bird can be moved from left to right by using the Z and X keys and 
the M key will cause it to peck, although none of the stems can be 
pecked twice in succession. 


1 BORDER 9: PAPER @: INK 7: CLS 
6 CLS 

7? GO SUE 97988 
8 GO SUB 9889 
@ LET hs=@ 

@ GO SUB eagg 

© POKE 23674,255: POKE 23673,255: POKE 236 


5 
66 PRINT PAPER SAT y1,x13" "SAT ylt+i,xil 
3" "j INK @3AT y,xibSsAT yt1,x}ce: LET yl=y 
: LET x1l=x 

129 IF y(t)=4 THEN GO SUB loga 

489 LET g=g+(2 AND IN 65278=251 AND 9<31)-(2 
AND IN 65278=253 AND g9>D) 

“@@ PRINT AT #1,913 INK 43 QVER 13 "P"sAT fg 
p"A"S CET f1=4: LET gl=g 

S19 IF IN 32766=251 THEN GO SUB 2469 

769 LET t=INT (RND¥5) +1: LET y(tdey(t)-L1: IF 
y(t)<h2 AND y(t) >h1 THEN LET h2=y(t): LET £ 
T2=t 

7iga IF y(t)<hi THEN LET hl=y(t):; LET flist 
759 PRINT INK tt+23AT y(t), tk6-55 "4 A°CAT 


yCtr+1, tx6-5j5" "SAT y(t)4+2,t¥6-53"Q OA"; 
INK 45AT y(t)+3,t%6-53" MW “SAT y(t) +1, t#6- 
3ap"o" . 


609 IF x<f11¥é6é-4 THEN LET b#=as(3): LET co= 
aS(4): LET x=xt1 ; 

829 IF x>f11¥6-4 THEN LET b#=a$(1): LET cH= 
as(2): LET x=x-1l 

999 GO TO 196 
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19698 IF x=t*4-4 THEN GO TO 1586 

1982 IF g=t¥é-3 THEN PRINT INK 43 OVER LSAT 
#,95"F" 

ig@@5 FOR f=4 TO 17 

1@1@ PRINT INK t+2;AT £,t%4-53" "SAT +1 
,tkS-55 "A N"ZAT £+2,t%6-55" "SAT £4+3,t*% 
6-53"Q MR"; INK 4$AT £4+4,t#6-45" BM "SAT F4+2, 
txd-35"O" 

1a20 BEEP .@4,f 

1930 NEXT f 

1g@35 LET f=21 

194@ LET y(t)=1& 

1950 IF t=#1li THEN LET fli=#12: LET hl=h2 
11@@ IF g=t*¥é-3 THEN PRINT INK 43 OVER 15 AT 
#£,9;5"A" 

i3@a@ RETURN 

150@ IF bt=as(i) THEN LET d=xtl 

1542 IF p$=a8(3) THEN LET d=x 

15@3 LET time=INT ((465536%PEEK 23674+254%PEEK 
23G7S+PEEK 23672) /49) 

i5g5 FOR i=@ To 3: FOR g=1i TO ig 

151@ BEEP .@@5,2: BEEP .@95,5: PRINT AT i,di 
PAPER 5S} INK @3a6(1,2 TO }: BEEP .9985,7: PRIN 
T AT 1,43 PAPER 53 INK @sas(3, TO 2) 

1528 NEAT g 

153@ PRINT AT i,x i PAPER 53" "SAT iti,xs IN 
K ©@3bS;AT i+2,xjics 

1548 NEXT i 

155@ FOR f=1 TO 2a@: NEXT fF 

156@ CLS : PRINT AT 4,93 INK 63 "You survived 
for "stime;" seconds." 

1579 IF time>hs THEN LET hs=time: PRINT INK 
5°?4Well done! That’s the longest recorded 


time!": GO To 1é69¢ 

156@ PRINT ° INK 5’ "The longest recorded time 
standsat "sjhs3" seconds." 
16@@ PRINT INK 7?’ "Press any key to play aga 


ities: 
161@ IF INKEYS="" THEN GO TO 14198 
14398 CLS : GO TO 2¢8 


2ea@ BEEP .91,28: 


AND 9<>21 AND 9<>27 THEN 
2a95 IF g=uX6-3 OR y((gt3)/6)915 THEN 


IF 9<>3 AND g<>9? AND g<>15 
RETURN 
RETURN 
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2919 LET u=(gt3)/6 
2928 LET ytud=ylu)+2 


2958 PRINT INK ut2;AT y(u)-2,u%¥6-5;3" "SA 
T y(ud-L,uk6-S3" "SAT yu) ,uk6-S5 "A N"5 
AT ytudt1,u¥é-5j5" "FAT ylud+2,uX6-Sj"Q 


A"§ INK 45AT ylul+3,uX6-45" MM "FAT yu t1yu%d 

-3y;"oO" 

2679 IF wu=fli THEN IF y(u)>h2 THEN LET hi=h 

2: LET #11=#12: LET f12=u:; LET h2=y(u) 

2099 RETURN 

eege DIM y(S): FOR f=1 TO 5: LET y(¥)=18 

8918 PRINT INK #+25AT y¥(f),4*6-55 "A N"5AT 

yf) +l, F¥6-55" "SAT y(¥)4+2,4%6-55"Q M@ R"G 
INK 45AT y(#)43,F#6-35 "B"GAT y(F)41,4*6-35"0 

8929 NEXT Ff 

S199 FOR f=@ TO 3: PRINT AT £,9; PAPER 5;" 

"] NEXT f 

8599 LET y=9: LET x=15 

S51@ LET #=21: LET g=15 

8529 DIM a$(4,35): LET aS(1)="9BC": LET at(2)= 

"DEF". LET a®(3)="GAI": LET aB(4)="JAL": LET 

bS$=aS(1): LET c#=as(2?) 

8539 LET yi=y: LET xl=x: LET #1=f: LET gl=9 

85439 PRINT AT £,93 QVER 13 "A" 

S55@ LET hi=26@: LET h2=2@: LET £11=2: LET £12 

=4 

8569 LET t=1 

8579 LET u=!1¢d 

89698 BEEP .5,2 

8999 RETURN 

7260 PRINT "Sail 0 8 Ge G68 0 8 See Bee one 
oe oe a Sea Mh GS Gua 8 8 B a 
O65 da She eee he | | i i | 
G Sl GMS Mh ne Oo EMM Bae gag" 

esig RANDOMIZE 1e¢g 

FO20 LET y=@: LET y1=8: FOR f=! TO 29 

9425 BEEP .1,-168 

9G38 PRINT AT y1,f-13" "SAT ylti,f-13" "3 

AT yy fi "GHI"NGAT yt1,f3"7 £3 INK STAT yti, F41 

oso 

9G35 LET yl=y 

9848 BEEF .@1,-19 

90359 IF RND>.S THEN LET y=yti-(2 AND RND>.5) 
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9a68 NEXT Ff 


9076 PRINT AT yl,t-135" "SAT yiti,f-15" ” 


9935 PRINT INK 463AT 6,63" @ PAUL STANLEY" 
9168 PRINT AT 8,43 INK 53"A giant bee likes n 
ectar from Siant flowers, but you have to 
stop it because you eat nectar as well!" 
9288 PRINT INK 6’ "Chop chunks out of the sta 
lks with M (but note that once a piece h 
as been cut out of one stalk you must cut t 
he next piece out of a different stalk)." 


93609 PRINT °"Move left with Z & right with Xx. 


9400 PRINT INVERSE 1’ "PRESS ANY KEY TO START 


95008 IF INKEYS="" THEN GO TO 9599 

9689 CLS : RANDOMIZE : BORDER 5 

9766 RESTORE : FOR x=USR “a” TO USR "r"+? 
9718 READ ni POKE x,n 

9728 NEXT x 

9736 DATA G52, 34,1759, 55 555979 243 S25 353 O65 O85 
68, 69,128, 124,226, 34,34,66,130,12,7,13,25,45, 
63,51,15,7,;178,178,178,17¢ 

974G DATA 176,178,170,17G, 248, 248, 252, 254,252 
» 248,248, 224,1,62,71,68, 68, 66,65, 48, 224, 24,4; 
132,646,646, 34, 162,9, 64,68, 136, 144, 168, 168, 109, 
15,31,63,127 

9758 DATA 63,31,15,7,a5,85,85, 95,85, 85,85, 85, 
224,176,152, 252, 252, 248, 240, 224, 96,224,224, 11 
2,126,69,39,15,6,6,7,15,39 

97468 DATA 68,124,249,193,104,75,139,145,75, a1 
9295, 220, 220,72,126,72,28,28,20,15,75,5; 1,0,8; 
@,G,248,224,192,1238,9,8,8,8 

9770 RETURN 
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Heli-Bomber 


After all this intergalactic warfare, you'll find it refreshing to return to 
Earth and struggle to cope with a fleet of helicopters whose pilots are 
committed to wiping out your fair city. Thankfully you’re in control of 
the metropolitan laser tower, and it’s up to you to shoot down the bombs 
before they hit the city. You’ll get points for every bomb you hit, and 
whilst you can wipe out a chopper if you feel so inclined, you will not add 
to your tally by so doing. You move your laser sight with the cursor keys, 
and the game is over once one of the bombs finds a clear path to the 
ground or the laser tower itself is destroyed. 


1 REM HELI-BOMBER @ R.Erskine 1983 

1@ BORDER @: PAPER @: INK 7: CLS 

26 LET sc=@: LET hs=¢ 

38 PRINT AT 9,93 "HELI-BOMBER": PRINT 

96 PRINT : PRINT “Your city is under attack 

by “, “helicopter bombers. When a bombhas a 
Clear path through to the ground or when your 
laser tower is destroyed the game ends” 

S@ PRINT : PRINT "Move your laser sight usi 
ng the arrow keys and try to shoot downthe bo 
mbs using the @ key" 

68 PRINT : PRINT AT 28,903 "Press any key to 
start” 

768 IF INKEYS="" THEN GO TO 7g 

38g GO SUB 2594 

1g@@ LET lin=lint+(2 AND INKEY®="6" AND lin<13 


195 IF ATTR (21,15)=@ THEN GO TO 3982 

128 LET col=col-(2 AND INKEYS$="5"): IF col<@ 
THEN LET col=31 

130 LET lin=lin-(2 AND INKEYS="7" AND lin>?g) 
199 LET col=col+(2 AND INKEYS$="8"): IF col>3 
1 THEN LET col=9 

15@ PRINT INK 4j3AT In,cl$" "SAT lin,colj "+" 
+s LET In=lin: LET cl=col 

169 IF coli=3@ THEN LET coli=@: LET lini=IN 
T (RND¥1@)+1 ‘ 

161 LET lini=lini+¢i1 AND RND>.7 AND lini<13) 
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178 LET lint=linit+(1 AND RND>.? AND lini<1i3) 
188 LET lini=lini-(1 AND RND>.? AND lini>og) 
198 LET coli=coli+(1 AND coll<3@) 


2968 PRINT INK @; PAPER @j3AT Ini,clis” "SAT 
Initi,clis" "5 PAPER @; INK S5AT lint,coll; 
"GAT Linitl,collg"D&£"s LET Inl=lini: LET c 
li=coll 


21g IF g=i AND RND>.8S THEN LET lin2=linit2: 

LET col2=coli: LET g=-g: LET In2=lini+2: LET 

cl2=col2 

215 IF g=1 THEN GO TO 2728 

228 LET lin2=lin2+l 

258 PRINT INK 93 PAPER @3AT In2,cl23" "§j IN 
K ZSAT lin2,col2;"F": LET In2=lin2: LET cl2=c 
ol2: BEEP .@1,-19: IF lin2=21 THEN GO TO 399 
12) 

268 IF ATTR (lin2+1,col2)=3 THEN PRINT PAP 
ER @; INK SAT lin2,col2;" "5s PAPER 7;AT lin2 
+1,col2j;"F"3 PAPER S3AT lin2+1,col23;" "i LET 
i= amiga | 

270 IF INKEYS<>"@" THEN GO TO 1998 

289 LET x=122: LET y=42: PLOT INK 63x,y 

299 LET xx=col*¥8: LET yy=link8-172 

3a@@g LET yy=-yy 

3i@ DRAW OVER 13 INK 63 xx-x,yy-y 

32@ IF ATTR (liniti,coll)=6 OR ATTR (linitti, 
colit+ti)=6 THEN LET h=-h 

33a IF ATTR (lin2,col2)=6 THEN LET b=-b 

348 PLOT OVER ij INK 6$x,y: DRAW OVER 13xx 
Ky VY 

35¢ IF b=-i1 THEN GO SUB 369 

34a IF h=-1 THEN GO SUB 49¢ 

378 GO TO 192 

388 FOR x=1 TO 18: BEEP .95,x+15; PRINT FLA 
SH 13 PAPER 23 INK 65AT Llin2,col25;"%": NEXT x 

3998 PRINT INK @$ PAPER @3AT Llin2,col2j" "5 
LET sc=sctig: LET g=-g:: LET b=-b: RETURN 

49@ FOR x=linil TO 22 

41@ PRINT AT Ini,clis" "SAT Initi,clij" " 

428 PRINT FLASH is PAPER 23 INK 63AT lini,c 
olig* “sAT liniti,colljs "DE" 

439 LET Int=lini: LET cli=coli: LET Llinil=lin 
i+i 
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449 BEEP .@1,x 
4390 NEXT x 


469 PRINT AT linl,coll1;" "SAT Llintlt,coll;" 
“s IF ATTR (21,15)=9 THEN GO TO 39880 
4798 LET lint=68: LET coll=INT (RND¥31) 


4389 LET h=-h 
499 RETURN 
2499 STOP 


2598 RESTORE : FOR x=USR "a" TO USR 


25190 READ ni POKE x,n 
2529 NEXT x 


Lc ao 


2539 DATA 255,165,165, 255, 165,165, 165, 255, 24, 
126,126,126, 69,24, 24, 255,129,195, 165,153,153, 
165,195,129,6,4,195,255,15,7,8,8,128, 128, 224, 
152, 252,248,9,9,195,195, 36, 24, 24,36,195,195 


2549 PRINT AT 6,43 "HELI-BOMBER" 
266898 GO TO 99a6 


3928 PRINT INK SjAT 19,16; "END OF GAME";ZAT 1 
2,73; "Your score was "35sec: IF sce>hs THEN LET 


hs=sc 


3881 PRINT INK SjAT 14,935 "High score "jhs 


S995 FOR x=1 TO 399: NEXT x 


34198 PRINT AT 16,45 "Press any key to restart" 


$2822 IF INKEYS="" THEN GO TO 3982¢ 


S638 LET sc=G 
324d GO SUB 9900 
3859 GO TO 196 


9ag@g BORDER @: PAPER @: RANDOMIZE 


S$ 

9812 FOR x=@ TO 31 

9929 LET r=INT (RND¥5) 4+1+16 
9930 FOR y=r TO 21 

9849 PRINT INK 33AT y,xi"A" 
9258 NEXT » 

9969 NEXT x 

93768 PRINT INK 4;AT 16,155 "8" 
99389 FOR x=17 TO 21 

99898 PRINT INK G3AT x, 155"C" 
9198 NEXT x 


9280 LET lin=18: LET col=15: PRINT 


lin,cols"+" 


INK 7: CL 


9218 LET lint=@: LET coll=INT (RND¥31): LET 1 


n=lint LET ecl=col 


INK 635AT 
| 
| 
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9229 PRINT INK 8} PAPER SsAT lini,colis"__ 


PAPER @} INK S3AT Lliniti,coli; "DE" 
9225 LET Int=lini: LET cli=coll 
923@ LET g=1: LET h=1: LET b=1 
93608 RETURN 
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Grand Prix 


Grand Prix offers you a race-track, a worthy opponent (in the shape of 
your micro’s car), and as much speed as you can handle. Unlike the 
computer, you have a choice of gears (first or second), and its up to you 
to select the type of course you want to compete on. If you crash you not 
only lose points, but you are replaced on the track in a random position, 
so you’ll have to sort yourself out pretty snappily if you want to get back 
intothe running. 


1 REM *#*¥GRANDPRIXX¥¥ 
2 BORDER @: PAPER @: INK 7: CLS 
S DIM b$(3,15): DIM i(3): FOR f=1 TO 3: LE 
T bS(Ff)=""5 LET i(f)=g2 NEXT F 
6 GO SUB 8gg¢g 
7? CLS 
8 INPUT “Enter skill (1-good to 4-bad) “;5 
ki IF sk<i OR sk>4 THEN GO TO 86 
9 INPUT “How many laps? "Slaps: IF laps<i 
THEN GO TO 9 
1g@ INPUT "t-Hard Or 2-Easy Circuit? “sei: I 
F ci<>l AND ci<>2 THEN GO To 19 
15 GO SUB 9gga 
29 PRINT AT 2,17;"READY": BEEP .5,9: PRINT 
AT 2,173; "STEADY": BEEP .5,5: PRINT AT 2,175" 
GO ": BEEP .2,1@: PRINT AT 2,195" " 
78 IF INKEY@="1" THEN LET g=1: BEEP -85,50 
86 IF INKEY$="2" THEN LET g=2: BEEP 95,52 
199 LET po=pot(INKEY$="7" AND po<151)-(7 AND 
INKEY$="7" AND po=151)-(INKEY@="6" AND pooid 
4)+(7 AND INKEY$="6" AND po=144): IF x<5 THEN 
LET c=l 
1gS FOR f=1 TO g 
119 LET y=y-(po>144 AND po<si48)+(pod148): LE 
T x=x-(po<146 OR po=i51)+(poo1dé6 AND poa<isa) 
115 IF SCREEN® (y,x)="" THEN LET yeyli LET 
x=x1li BEEP .92,-198: LET po=INT (RND¥8) +144 
128 PRINT QVER 13 INK @;AT yi, xliCHR® pal; 
OVER 153 INK 7;AT y,x3CHRS po 
125 LET yi=y: LET xit=x: LET polt=po 
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139 IF y=11 THEN IF x>27 THEN IF c#l THEN 
BEEP .1,19: LET 11=11+1: PRINT AT 9,1@311: L 
ET c=#9: IF li=laps+i THEN GO TQ 5999 

149 NEXT f 

15@ LET cy=cy-(cpo>144 AND cpo<i48) + (cpo>rl48 
): LET cx=ex-(cpo<146 OR cpo=151)+(cpor%l46 AN 
D cpo<i5a) 

152 IF SCREEN® (cy,cx)="" THEN BEEP .92,-29 
: LET cy=cyi: LET cx=cxi: LET cpo=cpol 

169 IF SCREENS (cy,cx)="-" THEN READ qi: LET 
cpo=cporq 

165 IF cy=13 THEN IF cx=38 THEN RESTORE 94 
og 

179 PRINT OVER 13 INK O3AT cyl,cx1;ICHRS cpo 
13; INK 33 QVER 15AT cy,cxi CHR cpo 

175 LET cyi=cy: LET cxi=cx: LET cpol=cpo 

299 IF cy=i11 THEN IF cx=3@ THEN LET l2=1]2+ 
i: BEEP .1,15: PRINT AT @,38312: IF 12=lapsti 
THEN GO TQ S98¢ 

599 GO TA 7g 

5999 FOR ¢=1 TO 49: BEEP .91,#: NEAT Ff 

5991 CLs 

50@2 LET sc=48/cit+éag/sk 

5995 IF cy=11 AND cx=3@ THEN LET sc=-sc 

5697 LET sc=scet(J1-12)*2 

5919 IF sc<@ THEN PRINT AT 2,@3“Bad Luck! Yo 
u Were Beaten." 

5911 IF sc>S THEN PRINT AT 2,85 "Well Done! Y 
ou Were The Winner." 

5@13 PRINT **Your Score Is “isc 

5@14 IF sc<i(3) THEN GO TO 5959 

5915 PRINT INK S53AT 6,953 "“Your Score Is Good 
Enough To Be Included In The Top Scores. 
Please Enter Your Name.“: INPUT n#: IF LEN n& 
>15 THEN GO TO S815 

5928 IF scdit(1) THEN LET i(3)i (2) 
=i(1): LET i(1)=sce: LET bS(3)=b#(2) 
d=eb@(1): LET bS(1)=n%: GO TO 59598 
5903@ IF sc>i(2) THEN LET i(3)=ei(2):3 LET i(2) 
=sc:t LET b#(3)=b%(2): LET b#(2)=n%: GO TO 595 
g 

5949 LET i(3)=se: LET b®(3) =n 

5959 PRINT ’"These Are The Best Scores: ": FOR 


LET i(2) 
LET bS(2 
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f=1 TO 3:3 PRINT ‘'f3"...“f;bS(F)$TAB 233i (4): 
NEXT # 

5868 PRINT ’ INK 6’"Press Any Key To Play Aga 
in.": PAUSE 8: GO Ta 6 

8889 LET at="GRAND PRIX - BY PAUL STANLEY - ” 
8818 PRINT AT 2,8j;"Steer Your Car Around The 
Race- track And Try To Beat A Car Driven 
By The Computer.” 

6828 PRINT INK S’"Turn Left With ""6"" And R 
ight With ""7"", You Can Select Gears Wit 
h Il(Slow) And 2(Fast). The Computer Will St 
ay In First At All Times.” 

8938 PRINT INK 6’"If You Crash You Will Rest 
art In A Random Direction, So You Must So 
rt Yourself Qut As Fast As Possible." 

8835 PRINT ’"Your Car Is The White One." 

8249 PRINT INK 4’ "PRESS ANY KEY TO CONTINUE. 
8658 PRINT PAPER 23 INK 63AT 8,G;ASSAT 21,93 
aS: LET At=a%(2 TO 31)+a%(1): PAUSE 3: IF INK 
EYS="" THEN GO TO 8sg@5¢ 

8869 RETURN 

9288 RESTORE 9985: FOR y=USR "a" TO USR "“i"+?7 
> READ x: POKE y,xi NEXT y 

78985 DATA B, 119,132, 252, 252, 132,119,9,49, 198, 
244,58, 223,76,24,8 

9B1B DATA 68,98,98,24,98,126,96,8,29,54,15,92 
3291,58,24,16 

9824 DATA @,118,33,63,63,33,118,9,16, 24,58, 25 
1,92,15,54, 29g 

98328 DATA @,98,126,98,24,99,98,468,8, 24, 76,223 
» 98, 249,198,428 

9048 DATA 66,46,189,165, 165,189,646, 69 

918a8 PRINT AT 1,8; INK 43% QIIIIIIIIIIZIZIIII 


IIIIIIIIIII Il iz 
IZ Lil 
IIIIIIIII Il ro 4 a © 4 
II Iz PG Peg If Il 
IIIIIIII I Il a , 
9111S PRINT INK 43 "7 I v4 
I Ilr I I I Il 
I I I I Iil I III 


Zz Ee REESE oo y ae Gap Ga F ust 
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i <2 igs oF | nn? POLO ee: I 
ce) a é 7 ge 
9128 PRINT INK 43 "ZZ Po T° FF 
1) aS @ 4 x a 7IIITI IZ I 
TITit.  2T Il ae 4 
II ve: Il 

I pe ee PE 2TITITITITIT. 
fo QTL TTT 
9138 PRINT AT 11,273" " 


9159 IF ci=1 THEN PRINT INK 45AT 3,63 "“ZI"GA 

T 4,55 "ZI"GAT BS, 25 "I2"GAT Fy 25" II"GAT 17,55 ° 7" 
SAT 18, 35"I°GAT 8,185 "I"FAT 13,285 "I" 

PIPH DATA 3,935 2456555 65 Gy 7443854497, 5, Ps ByPy 

15,9,16,9,39,11,8,11,18,12,12,13,8,14,39,15,5 
»15,4,15,16,16,4,17,4,17,12,17,28,17,27,18,5, 
16,11 

92GB DATA 3, 8435 25,654,695 7535p Sy 3985 5H, 95459 
55,9,16,9,17,16,18,12,8,12,13,13,8,13,18,13,3 

@,15,5,15,6,16,4,16,13,17,4,17,22,17,26,18,5, 
18,11 

O2ID DATA 2,12,25 26,55 3,55 93 6p SOs 7yly7yl7y Fy 

8,8,19,9,1,19,2,19,7,198,194,12,9,15,9,15, 50,16 
13) 16,8,16,14,16,19,17,2,18,2,19,3,19,11,28,2 

3,28,25 

9220 DATA 25642, 27,4, 2,4, 4,5,1,5, 38, 7,16,7,18 
99, 28,9,1,9,14,19, 2,18, 7,13,19,14,19,16,30,16 
33,16,8,17,14,17,28,18,1,19,1,19,22,19,27, 20, 
2,29,11 

9298 RESTORE P16G+sk*#19 

9399 FOR 1=1 TO 26: READ y,x: PRINT INK SSAT 
yyXG7- "2 NEXT 1 

93598 RESTORE 9499 

9378 LET 1=-1 

PADD DATA 1,1575-7pZplalgly—lyrly rly 7p 7y ly ly 
Legale Hy el ey a pel gd gd 

9569 LET po=146: LET cpo=146 

9519 LET y=1G: LET x=28: LET cyty: LET cx=3d 
9520 LET yi=y: LET xi=x: LET pol=po 

9522 LET cyl=cy: LET cxl=cx: LET cpol=cpo 
9528 LET 11=1: LET 1211 

9529 LET g=i: LET c= 

9538 PRINT AT y,x; GVER LjCHRS pos” “$§ INK 3i 
CHR cpo 


172 Grand Prix 


9549 PRINT AT 8,9; "YQUR LAPS: "GLij" COMPUTE 
R’S LAPS: "fL2 
9698 RETURN 
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Giant Rats 


The object of Giant Rats is to direct a man through a maze to reach the 
gir!, whilst being pursued by a killer rat. You have a displayed time limit 
in which to move before the girl mutates - and if you are unlucky she will 
unpredictably change places with the rat! If the rat should reach the girl 
first, she will disappear altogether. At the beginning of the game you are 
shown the positions of up to four randomly placed mines which you must 
try to memorise since they will remain invisible for the remainder of the 


game. 


1 


bs) 


RANDOMIZE : BORDER @: PAPER @: INK 7: C 


LET hs=9 


1@ GO SUB 999%¢ 


ey] 
78 
89 
199 


GO SUB 5999 

LET sc=9 

LET 1i=5 

FOR £=6@ TO 398: PRINT INK 43 PAPER 73; AT 


S,F5"G6G*5AT 26,f3"G"3 NEXT f:3 FOR f¥i TO 19: 


RINT 
NEXT 
183 
1937 


INK 43 PAPER 73AT 4,85 "G"SAT £,395 "G's 
f 
GO SUB 2966 
FOR i=l TO 34: PRINT AT INT (RND¥12) #2, 


NT (RND¥15) #23 PAPER 73 INK 45"G": NEXT i 


1198 
CET: 
115 


LET se=sce-1: LET y=1: LET x=y: LET f=19 
g=29: LET as="C" 
PRINT AT 21,5; "HI-SC:"ghssAT 21,163 "LI: 


s1isAT 21,2353 "SCORE: 3" 


1298 
139g 
298 
291 
HEN 
285 
2198 
229 
THEN 
238 
THEN 


LET b€$="AS": LET c=1 

GO SUB i159¢ 

FOR i=1 TO 2 

LET c¥c-1: PRINT AT 21,83c3" "3 IF c=G 
GO TO 359¢ 

IF RND>.9%7 THEN GO SUB 1499 

PRINT AT y,x5"” ” 

IF INKEYS="8" THEN IF ATTR (y,xt1)<>69 
LET x=xt+l 

IF INKEYS="S" THEN IF ATTR (y,x-1)<¢>69 
LET x=x-1 


Lt 


P 


I 


T 
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299 IF INKEY$="7" THEN IF ATTR (y-1,x)<>68 
THEN LET y=y-1 
259 IF INKEYS="6" THEN IF ATTR (yt+1l,x)<>68 
THEN LET y=y+1 
255 IF ATTR (y,x)>128 THEN GO SUB 1sS9d 
257 IF (x=b(1) AND y=a(l)) OR (x=b(2) AND y= 
a(2)) OR (x=b(3) AND y=a(3)) GR (x=b(4) AND y 
=a(4)) THEN GO To 3980 
2668 PRINT INK 63AT y,xibS(i): GO SUB 190g 
278 NEXT i 
286 GO TO 298 
1999 LET fi=f: LET gl=g 
1919 IF #<y THEN LET a#="F": LET F=f+,5 
1920 IF #>y THEN LET aS="€"s LET f=f-.5 
1838 IF 9<x THEN LET a$="D": LET g=gt.5 
1849 IF g>x THEN LET a®="C": LET g=g-.5 
1859 PRINT INK 33AT 41,915" "SAT f, 95 a% 
1968 IF ATTR (y,x)=3 THEN GO TO 3189 
1878 PRINT AT INT (RND#19)¥2,INT (RND¥15) ¥23 
PAPER 75 INK 43 "6" 
118@ RETURN 
1589 LET sc¥scti: PRINT AT 21,293 5c 
15@1 FOR 1=1 TO 5: BEEP -91,1¥5: NEXT 1 
1592 LET c=5g 
1585 LET q=INT (RNDK19)*¥2+1: LET w=INT (RND¥1 
S)*¥2+1: PRINT PAPER 6} FLASH lj INK 25AT gqyw 
5°" i 
1518 RETURN 
1668 PRINT AT gq wi" "!: LET l=q: LET m=wi LET 
it=fi LET mi=gi LET #31: LET gem: LET q=11: L 
ET w=ml 
1685 PRINT AT g,ws PAPER 6§ INK 2; FLASH 13; "4 
1696 LET t=1 
1618 RETURN 
28288 DIM a(4): DIM b(4) 
2819 FOR i=1 TO 4: LET a(i)=INT (RND¥1O)¥2+1; 
LET b(i)=INT (RND¥15)4¥2+1: NEXT i 
2629 FOR i=7 TO @ STEP ~1: FOR 1=1 TO 4: PRIN 
T INK i$AT a(l),b(1)3 "MM": BEEP »-O1,1%1: BEEP 
°O1,-1ekis NEXT 1: NEXT i 
2938 RETURN 
3698 FOR !=1 TO 3: FOR i=? To @ STEP “1: PRIN 
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T AT y,x? INK i3 "A"! BEEP .85,i*8: NEXT i: NE 
xT 1 

3g1a GO TO 36989 

3198 FOR 1=1 TO 3: FOR i=7 TO g STEP -1: PRIN 
T AT yyxs INK if "FF" BEEP .1,-i¥4: NEXT i: NE 
xT 1 

3128 GO TO 3699 

3508 FOR 1=1 To 15: FOR i=1 TO 3: BEEP .02,1%* 
i: PRINT AT q,wi INK RND¥73 "4": NEXT i: NEXT 
1 

36H PRINT AT yyxi" "SAT £,99" “FAT q,;we* " 
4¢aa LET Li=li-1: IF 1i>@ THEN BEEP .3,8: GO 
To 1198 

4992 CLS : FOR f=8 TO 20: BEEP .d2,f: NEXT #: 
PRINT *' “You scared “#sc3" point"s("s" AND s 
(rs Cope Gp let fame ed 

4919 IF sc>hs THEN LET hs=se: PRINT INK 4°° 
"WELL DONE! A NEW HIGH-SCORE!": GO SUB 9198 

4815 PRINT INK 5'’"The high-scare is "ihs 
4818 PRINT * INK 6° FLASH 13 "PRESS ANY KEY TO 
PLAY AGAIN" 


4919 IF INKEYS=""THEN GO TO 4819 

49626 CLS : GO TO 76 

599a PRINT FLASH 1;" CMDUETFACNOD 
THe ” 

5916 PRINT FLASH 1*” CRODAETFS 

CG n 


5938 FOR y=@ TO 2 STEP 2: FOR i=@ TO 31 

50935 BEEP .94,RND*48 

5049 IF SCREEN® (y,i)<>"m" AND SCREENS (y,i)< 
>“" THEN PRINT AT y,i§ BRIGHT 13 INK 2§ PAPE 
R 7EISCREENS (y,i) 

S@5@ NEXT it NEXT y¥ 

5955 PRINT °*" @Paul Stanley" 
5969 PRINT '’"The giant rat is out toa get you 
‘You must try and reach the girl before she m 
utates (a timer at the bottom af the screen 
counts this dawn)." 

5078 PRINT INK 5’°’“Hawever she might be a mu 
tant herself and change places with the ra 
t unpredictably. Alsa she might disappear tot 
ally (if she meets the rat, she will).” 

5975 PRINT *’"Press any key..."i PAUSE @: CLS 


176 Giant Rats 


S88@ PRINT INK 6’’ "And that’s not all! When 


you Start, up to 4 mines will be shown 
in random positions. These positions mus 
t be noted, for if you land on one, you 


will be destroyed!" 

S885 PRINT INK 4°'"Move with 5-8" 

S872 PRINT INK 43; INVERSE 1°?" PRESS ANY 
KEY TO START. "; PAUSE @: CLS !: RETURN 
7928 RESTORE 9@18: FOR y=USR "a" TO USR “"h"+7 
¢ READ x: POKE y,x: NEXT y 

9G19 DATA 28,93,73,62,8, 28,34,65, 28, 28,8,127, 
8,28, 29,29 

9S2S DATA 751,33,57,93,255, 36, 188, 248,128,132 
3156,186, 255, 36,54 

9330 DATA 8, 28,62, 28,28,63,61,7,15,57, 255,124 
9 2549,84,56,16 

9348 DATA 255,129,189,165, 165, 189,129,255, 28, 
28,73,62,28,62, 28,54 

98358 RETURN 

9198 LET g=.3: RESTORE 9289: FOR #=1 TO 23: R 
EAD y,x: BEEP y,x: NEXT #: RETURN 

9208 DATA 99739395 65759573959, -6,7,9,12,9, 11 
99979995 79162,959,115959,957,9,559,49,9,55 «657, 
9:2;9:5,9;49,9,2,1.2,8 
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Postman 


In Postman you have a limited time in which to collect a letter from a post 
box and deliver it to the house without being caught by the dog. The 
number of post boxes can be varied for each game and letters must be 
collected from the one which is currently flashing. 


1 BORDER 7: PAPER 7: INK @: CLS 
2 REM @ Postman-Paul Stanley 
5 LET hs=g 
7 GO SUB 79096 
@ GO SUB 35589 

28 GO SUB 7889 

68 GO SUB 35999 

76 BEEP .1,9 

8@ FOR i=1 TO 2 

19@ IF INKEYS="5" THEN IF x>1 AND ATTR (y,x 
-1)<958 AND ATTR (yt1,x-1)<¢>58 THEN LET a=" 
EF": LET be (l)=" 6": LET bS(2)=" A": LET x=x- 
1 

11@ IF INKEYS="6" THEN IF x<29 AND ATTR (Cy; 
x+2)<958 AND ATTR (yt1,x+2)<>258 THEN LET at= 
"AB": LET bStl)="C"! LET bS(2)="D"i LET x=xtl 

126 IF INKEYS="7" THEN IF y>1 AND ATTR (y-1 
,x)<958 AND ATTR (y-1,x+1)<>58 THEN LET as=" 
ro“: LET beti)="7"s LET bS(2)="4": LET y=y-1 

138 IF INKEYS="6" THEN IF y<i17 AND ATTR (y+ 
2,x)<>S8 AND ATTR (y+2,xt+1)<o58 THEN LET a= 
"K 48! LET be(l)="Z2": LET bS(2)=bS(1): LET yry 
+1 

149 PRINT AT yl,xis" "gAT yiti,xis" "53 INK 

LEAT ys xb asjAT ytl,xpos(id)s LET ylsy: LET xl 
=x 

29@ IF let THEN IF x=hx OR x=hx-1 THEN IF 
y=hy THEN FOR f=1 TO 19: BEEP .@1,f: NEXT f: 

LET sc=scto: PRINT AT 21,735c: GO SUB 59989 

258 IF NOT let THEN IF x=px OR xt+1l=px THEN 

IF y=py THEN LET let=1: BEEP .@6,2@: LET sc 
=scti@: PRINT AT 21,73sc: LET o=FN al) 

388 NEXT i 
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Soo LET dy=dyt+idy<y+l) -(dy>dyt1) 
Sig IF dx<x THEN LET dx=dx+i: LET d#="y" 
S30 IF dx>x THEN LET dx=dx-i: LET d#="0" 
S89 IF ATTR (dy,dx)=58 OR ATTR (dy,dx)=158 0 
R ATTR (dy,dx)=59 THEN LET u=dx: LET dx=dx+{ 
dx<x)-(dx>x)t IF dx=u THEN LET dx=dx+1i 
889 PRINT INK 3;AT hy,hxj"S"j INK OjAT dyl, 
dxij3" "jJAT dy, dxjds 
819 LET dyl=dy: LET dxi=dx: LET t=t-1: PRINT 
AT 21,27;tj" ": IF t=@ THEN GO TO sgg9g 
8509 IF dx=x OR dx=x+i THEN IF dy=y OR dy=yt 
1 THEN GO SUB é699¢g 
999 GO TO &8@ 
S826 PRINT INK 23AT py,px$"PA"ZAT Pyti,pxi "a" 
S883 LET f=INT (RND¥1b) +1 
S985 LET let=2 
SO81@ PRINT INK 6$ PAPER 33 FLASH 1;AT y(#),x 
CFF "ANGAT yl Fd tL, x (t)5"Q" 
5926 LET py=y(f): LET px=x(f) 
S938 LET hx=INT (RND¥14)¥24+1: LET hy=INT (RND 
KI) K2+1 
S249 IF ATTR (hy,hx)=58 OR ATTR (hy,hx)=158 T 
HEN GO TO 583g 
SES@ PRINT INK 33AT hy,hx3"S" 
Sig@ RETURN 
S598 INPUT "How many post boxes would you 1 
ike there to be? (Any number between 1 and 
36) "31b 
S79S IF lb<i OR 1lb>36 THEN GO TO 578g 
S8g29 RETURN 
6989 FOR f=1 TO 12: BEEP .@7,¢: PRINT AT y,x3 
INK 15 “AB"“GAT y+t,x3"C" 
6919 BEEP .@5,¢: PRINT INK Lj5AT y,x3"Z "$3AT 
yti,xs "7" 
6928 BEEP .97,¢: PRINT INK L3AT y,xj3 “EF "3 AT 
yti,xi" 6" 
6939 BEEP .95,¢: PRINT INK 1L3AT y,x3"K "§ZAT 
yaks xp "lL? 
6949 NEXT F 
69598 PRINT AT y,xi" "SAT yti,gxi" "SAT hyghx 


6968 LET t=t-59: IF t<=@ THEN GO TO sogg 
6879 PRINT AT 21,275t3" * 


ee ————EEEE 
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6989 LET y=17: LET x=28: LET yl=y: LET x1i=x 

6998 LET dy=i1: LET dx=i1: LET dyi=dy: LET dxi= 

dx 

619g GO TO 46¢ 

7888 FOR ¢=98 TO 19: PRINT INK 45AT £,95"R"GA 

T #,315 "A" NEXT fF 

7@i198 FOR #=1 TO 38: PRINT INK 4iAT 8,f5"R"JA 

T 19,43 "%A"s NEXT fF 

7868 DIM y(lb): DIM x(1b) 

719g FOR f=1 TO 1lb 

7119 LET y=INT (RNDEI) #443: LET x=INT (RND#9) 

KS+3 

7128 IF ATTR (y,x)=58 OR ATTR (yti,x)=58 THEN 
GO TO 7119 

7125 LET y(f)=eyi LET x(f)=x 

713G PRINT INK 23AT y,x3"A"SAT yti,xe"Q"s NE 

xT fF 

7889 LET y=17: LET x=28: LET yisy: LET xi=x 

781g DIM b#(2,2)!: LET a@="F£F"3 LET be(i)=" 6" 

5s LET bS(2)=" 4" 

7848 LET sc=@: LET t=389: PRINT AT 21,15 “SCOR 
s"gscs3AT 21, 225"TIME: "st 

7859 LET let=8: LET py=y(lb): LET px=x(1b) 

7998 LET dy=i: LET dx=1: LET d#="A" 

2919 LET dyil=dy: LET dxi=dx 

795@ DEF FN a()=INT (SQR (ABS (hy-py)*2+ABS ( 

hx-px)*2)) 

7999 RETURN 

S@ge FOR #=1 TO 49: BEEP-.91,f: NEXT f 

8g@5 CLS : PRINT INK 4°’ "You have run out of 
time.” 

8818 PRINT INK 3'’"You scored "jscs" points. 


8920 IF sc>hs THEN LET hs=sc: PRINT INK 2°’ 


"Well done that’s a new high score!! Ple 
ase ENTER your name.“ INPUT h&: GO TO 8 
B35 


8839 PRINT INK 2’'"The high-score is "jhsi" 
points”’ “by Postman “jh 

8935 FOR f=1 TO 58: NEXT Ff 

8849 PRINT INK 5’’"Press any key to play aga 
ines." 

8958 IF INKEYS="" THEN GO TO 8959 
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8968 CLS : GO TO 1g 
9298 RESTORE 9919: FOR #=USR “a" TO USR "s"+7 
: READ gt: POKE +,9: NEXT # 

9O@1G DATA 126,126,236, 231,255, 255, 124,56,9,2, 
2,254, 255, 254,28, 

9O28 DATA 56,127,184, 184, 49, 72, 136, 76,56, 254, 
185,56,48,37,34,48 

9B3G DATA G,0,G,127,255,127,8,9,38,126,55, 231 
,255, 255,62, 28 

9984S DATA 28,127,157, 28, 20, 164,68, 12,28, 254,2 
9,29,20,18,17,58 

9858 DATA 16,56,565, 56,56, 56,56, 56,124, 254,124 
556,126, 184,49, 32 

9268 DATA 28,62,91,73,62,62,93,157, 28, 28, 28,2 
8,8,9,9,2 

987@ DATA 124,254,124,56,252,58,48,8,8,14, 139 
, 142,252,124, 68, 68 

9GBH DATA 32,112, 209,113,63, 62, 34,34, 68,126,2 
55,126,66,126, 126,126,192, 192,182,126, 126,126 
1,126,255 

9298 DATA 126,195, 189,165, 165, 189,195,126, 32, 
126,255, 126,86,86,126,126 


9206 PRINT INK 23" AB POSTMAN 
EPR oe 4" 
9258 PRINT °*" @ Paul Stanley" 


9398 PRINT INK 1°’ "First collect a letter fr 
om the flashing post-box. Then deliver it to 
the little purple house." 

9498 PRINT "'*“You have limited time, and if 
you are attacked by the dog, you will los 
e time." 

93599 PRINT INK 3’? "Move with 5-8." 

9688 PRINT °’"Press any key to start.....” 
9708 IF INKEYS="" THEN BEEP .@1,29: PAUSE 1g 
: GO TO 972998 

9999 CLS 3 RETURN 
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Xmas Eve 


Xmas Eve is a race against time for Santa, who must rush to deliver 
presents before the inhabitants of the houses awake. 


By manoeuvering Santa’s sleigh left and right you can catch the presents 
as they are thrown down from above by the elves. Presents can then be 
dropped down the chimneys by pressing the M key. Each timea present 
is successfully delivered, the inhabitants of the house awake and switch 
on the lights, which causes the snow on the roof to melt at a rate 
proportional to the activity in the house. The more work Santa does the 
more he has to hurry, in order to complete his work without being seen. 


1 PAPER 1: INK 7: BORDER 1: CLS 
2 REM KXKKKK HEHEHE KER KE 
3 REM ¥*% @ PAUL STANLEY *¥%* 
GZ REM KXKKK KEKE KKK EEE ERE 
5 GO SUB 828K8¢g 
7? LET hs=2 
16 GO SUB 92998 
15 LET sk=.98: LET s=0 
28 LET aS="4"3 LET be="8":2 LET cse"C"s LET 


21 DIM d#(28) 

25 LET g=1: LET h=INT (RND¥28) +2 

26 PRINT AT 2,183 "HIGH-SCORE: "Shs 

27? LET p= 

28 PRINT AT 2,9; "PRESENTS: "35 

36 IF INKEY#="x" THEN LET x=x+(2 AND x<27) 
: LET ag="D": LET bS="£": LET c#="F" 

35 IF INKEYS="2" THEN LET x=x-(2 AND x1): 
LET aS="A"! LET bS="B": LET c#="C" 

42 PRINT AT 18,x-23" "SAT 18,xs INK 2 
$a; INK @3bs3 INK 2583 

5a IF NOT p THEN LET g=g+1: PRINT AT g-i,h 
3" "SAT g,hs INK 63"6": IF g=1@ THEN IF h=x+ 
2 OR hex+i OR h=x THEN LET p=1 

6@ IF g=12 THEN IF SCREEN® (gti1,h)="i" THE 
N GO TO 1996 

65 IF g=12 THEN PRINT AT 12,h3" "i LET gl 
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+ LET h=INT (RND¥28)+2 
78 IF p THEN IF INKEYS="m" THEN LET g=198; 
LET h=x-1+ (aS="D")+(3 AND cH="C"): LET p=9¢ 
88 IF RND>sk THEN LET Q=INT (RND¥7)41: LET 
e=INT (RND¥4): PRINT PAPER 3:AT 16, qg¥4-ea+13 
aeecaariae (a = d$(Q¥4-e)d="p": IF d&(qt¥4-3 TO qk4)=" 
PPppp" THEN GO TO 29928 
98 GO Ta 3a 
1998 PRINT AT 12,h3" " : 
1916 IF SCREENS (18,h)="_" THEN GO TO 25 
1915 LET s=s+1: PRINT AT 9,9;"PRESENTS: "35 
1928 PRINT AT 18,hi INK 8} PAPER 63"__"3AT 19 
pies 
1922 FOR #=1 TO 3: BEEP -981,38: NEXT ¢ 
1825 FOR #=4 TO 28 STEP 4: IF SCREENS (18,4)= 
"_" THEN NEXT #3 LET sk=sk-.92: CLS : GO SUB 
9838: GO TO 2g 
19838 GO To 25 
290992 IF SCREENS (18,q%4)<>"_" THEN GO To 489 
@ 
2418 GO TO 3¢ 
S8Od RESTORE 51@@: LET z=.7: LET c=.6: FOR f= 
1 TO 24: READ a,b: BEEP a,b: NEXT ¢ 
S1g@ DATA Z963Z565C,6,2%56,256,056,256,2,9,2,2 
1Z94y1565 25 Gy 257,257,257, 2,7, 257525 byZ5 6, 256, 
2595259525752, 4,0,2,0,2 
32980 RETURN 
6668 FOR f=1@ TO 1 STEP -.5: PRINT AT #,x3 IN 
K 23a%; INK @3b%} INK ZiCcSIAT f+1,x3" "; BE 
EP .985,2*%4: NEXT ¢ 
6962 IF s>hs THEN LET hss 
6995 PRINT AT L,x5" m 
6986 PRINT AT g,hj3* * 
6818 PRINT FLASH 13AT 18,q¥4-13 INK @; PAPER 
6i"__ "FAT 19, q%4-15"K_# 
6938 PRINT AT 8,83 FLASH 1;5"G AME @o VE R" 
6945 GO SUB 5990 
69358 PRINT AT 11,23 FLASH 1; "PRESS ANY KEY TO 
PLAY AGAIN” 
6868 IF INKEYS<>"" THEN CLS : GO To 19g 
6978 GO TO 696g 
8268 PRINT INVERSE 13AT 5,93" CHRIST 
MAS EVE “* INVERSE g**# @ PAU 
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L STANLEY“: PAUSE 259: CLS 

8919 PRINT ’"It is approaching midnight on 
Christmas eve and Santa is late.You play the 
part of Santa and you must deliver presents 
which are thrown down to you by your eives. 
Having caught a present (by flying directly 
below it) you must move over a chimney a 
nd drop a present down it." 

8929 PRINT ’“When a present: has been dropped 
down a chimney the family in that house im 
mediately start work on opening up the pre 
sent and they will turn the light on.Droppin 
g another present down a chimney of a lit h 
ouse will not count.” 

88398 PRINT ° INVERSE 13"PRESS ANY KEY TO SEE 
MORE.": PAUSE @ 

894 CLS : PRINT "Beneath each roof you will 
see a patch of snow which melts as time ela 
pses. This melts at a rate which is proport 
ional to the activity in the house.” 

8S@59 PRINT *"As the presents must be placed 
down the chimneys before anyone sees you, if 


all the snow has melted under a particular 

roof without a present being dropped before 

this occurs it will indicate that the in 

habitants are awake and you will have to fr 

eturn immediately.” 

8969 PRINT °* ZoSa SSeS senses eS] LEFT 
X-SSSSS rs SSSoSsSe 2 RIGHT Moser os 

--DROP PRESENT“ 

8768 PRINT * INVERSE 13" PRESS ANY KEY TO 

START "s PAUSE @: CLS : RETURN 


9908 RESTORE 9918: FOR y=USR “a" TO USR "k"+?7 
: READ x: POKE y,x: NEXT y 

9Gi1G DATA G,8,1,9,9,9,8,8 - 

9G2G DATA 192,64, 149,224,127,126,99,82 
9G3G DATA 8,28,8,124,156,72,63,128 

9849 DATA 16,56,16,62,56,18,252,1 

9950 DATA 3,2,5;,7; 254,126,198, 74 

9949 DATA 9,9,128,9,9,9,9,¢9 

9878 DATA G,9,9,54,54,9,54,54 

998A DATA G,1,3,7,15,31,65,127 

9995 DATA B,128,192, 224, 248,248,252, 254 
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9188 DATA 255, 228,73,65,64,9,9,9 

9119 DATA 24,69,BIN S1G1G119, 60, 24,126,255, 25 

5 

9388 FOR x=2 TO 26 STEP 4 

9319 PRINT INK 3;AT 13,x+13":"3 PAPER 33 INK 
SAT 14,xt+1is"H"53 PAPER 13 "Z"SAT 15,x3"HMMI"G 
INK 73 PAPER SHAT 16,xi"JJJ7";AT 17,x} PAPER 
13 INK 35 "MM@MM"FAT 18,x5"M@ M@"SAT 19,x3°@ 
“SAT 20,xi"MMMM"SAT 21,x; "Se" 

9328 NEXT x 

9498 FOR x=48 TO 288 STEP 32: OVER 1: INK 3: 

PLOT x,@: DRAW 8,39: NEXT x: INK 7: OVER @ 

9458 FOR x=24 TO 216 STEP 32: PLOT x,23: DRAW 
15,0: NEXT x 

958@ RETURN 
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This has to be the definitive Morse code tutor. It’s got everything you 
could possible require to painlessly acquaint yourself with the code, and 


then to go on and practice until you reach professional speeds. The 


program offers you a comprehensive menu with a full listing of letters 
and numbers (in both text and Morse), a facility to convert your own 
messages into the code and a challenging tester section. You also have 
the opportunity to adjust the speed of the code to suit your own abilities. 


What more could you ask for? 


ig 
ut 
29 
4g 
192 
Lig 
12¢ 
14g 
15¢@ 


16d 


178 
18a 
198 
210 
226 
239 
249 
259 
24g 
292 
1829 
1a1g 
1928 
1925 
1g3e 
1d49 
y),25 


POKE 23658, 255: 


REM force upper case inp 


REM Morse Tutor @ Robert Erskine 1983 


Go 


PAPER 1: INK 53: 
PRINT AT 1,115; “OPTIONS” 


SUB 8599 


PRINT 


PRINT “1 Print a message": 
PRINT "2 Message 


BORDER 1: 


CLS 


PRINT 


PRINT "3 Create your own message 


PRINT “4 Test section”: 
PRINT "S Change speed”: 
FRINT "6 The Morse Code": 
IF INKEY#="1" THEN GO 

IF INKEY#="2" THEN GO 
IF INKEY#="3" THEN GO 

IF INKEYS="4" THEN GO 

IF INKEY#="5" THEN GO 

IF INKEYS="6"° THEN GO 
GO TO 219 

LET x$=v$: LET ve=qetvé+the 
FOR x=1 TO LEN v%-32 

IF O=@ THEN 


FOR y=1 To 5 


IF 


T2464 THEN 


PRINT 
PRINT 


TO 
TO 
TO 
TO 
Ta 
TO 


PRINT 
29895 
29898 
2832 
5dag 
6050 
7BSS 


with sound only": 


PRINT 


PRINT 


PRINT AT 21,93 v$(x TO x+31) 
LET T=CODE v@(xt+3l1) 


BEEP c(CODE (v#(x+31))-64, 
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1942 IF T<58 AND T>4?7 THEN BEEP c(CODE (vs (x 
+31))-21,y),25 

1945 NEXT y 

1846 PAUSE 3 

19352 NEXT x 

1999 GO Tb 2118 

2608 LET O=-1 

29095 LET vt=4% 

2dig GA TO 1lgsg 

29268 GO TO 1898 

2639 CLS : PRINT AT 2,7; "CREATE A MESSAGE” 
2449 PRINT “Enter your own message at the ar 
bottom of the screen and then ","press the EN 
TER key.” 

2050 INPUT vs 

2668 CLS : PRINT "Do you want the message dis 
played in both sound and-vision? (Y or N)” 
2865 PAUSE 198 

2878 IF INKEYS="" THEN GO TO 2979 

2089 IF INKEYS="¥" THEN GO TO 2199 

2898 LET Q=1 

21998 GO To 1899 

2119 LET G=e 

2149 LET f$=xd 

215g GO TO 198g 

SO@9 CLS : PRINT AT 1,18; "TEST SECTION" 

SG198 PRINT 

5@28 INPUT "Do you want to be tested on chara 
cters (1) code (2) or sound (3)?";As 

SOSa IF AS="1" THEN LET Wet! 

S949 IF AtS="2" THEN LET W=2 

S958 IF As="3" THEN LET We3 

S855 IF CODE AS<49 OR CODE AS>51 THEN GO TO 
9825 

5868 INPUT “Do you want testing on letters (1 
) or numbers (2)?"; AS 

S998 IF AS="1" THEN LET B=1 

Si9@ IF AS="2" THEN LET Bz2 

S195 IF CODE A%<49 OR CODE A®>5@ THEN GO TO 
5869 

Sli@ IF W>!1 THEN GO TO 5259 

Sii5 PAUSE 5¢ 

S128 PRINT "The character will appear first, 
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followed shortly by the code and sound“: PAUS 


E 189 


S136 
5149 
5158 
5162 
S179 
5182 
5192 
5298 
S216 
5228 
5239 
5248 
5259 
5269 


FOR x=1 TO 15 

IF B=1 THEN LET v=INT (RND¥26) +1 

IF B=2 THEN LET v=(INT (RND¥19)+1)+26 
IF B=1 THEN PRINT CHR® (v+64)3 

IF B=2 THEN PRINT CHR® (v+21)5 

PAUSE 58 

FOR y=1 To 5 

BEEP c(v,y),25 


NEXT y 

PRINT * = "scS(v) 
NEXT x 

PAUSE 54: GO TO 1a¢ 


IF W>2 THEN GO TO 5398 
PRINT "The code will appear first, follo 


wed shortly by the character and sound": PAUS 
E 1986 


52728 
5289 
5298 
S382 
SS1¢ 
SS28 
S538 
534d 
S35a 
536g 
5378 
538s 


FOR x=1 TO 15 

IF B=i THEN LET v=INT (RND¥26) +1 

IF B=2 THEN LET v=(INT (RND¥19)+1)+26 
PRINT c%(v)5: PAUSE 52 

FOR y=1 TO 5 


BEEP c(v,y),25 

NEXT y 

PRINT “ = "3 

IF B=1 THEN PRINT CHR® (v+64) 


IF B=2 THEN PRINT CHR® (vt21) 
NEXT x 
PAUSE 5@: GO TO 198 


5399 PRINT "The sound will be heard first, fo 
Llowed shortly by the character and code": PA 
USE 19g 

549@ FOR x=1 TQ 15 

5419 IF B=1 THEN LET v=INT (RND#¥26)+1 

5429 IF B=2 THEN LET v= (INT (RND¥LG) +1) +26 
5438 FOR y=1 TO 5 

5449 BEEP c(v,y),25 

54598 NEXT y 

546g PAUSE 5¢ 

5478 PRINT "That was "5 

5486 IF B=1 THEN PRINT CHRS (vt64)35" = "“FCSC 


wi4 
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599@ IF B=2 THEN PRINT CHR® (vt21)35" = “5c%( 
Vy 

559g PAUSE 5d 

SSi@ NEXT x 

5528 PAUSE 5@: GO TO 19@@ 

69298 CLS : PRINT AT 1,6;"ALTER SPEED OF CODE" 
> PRINT 

6919 PRINT "Enter a multiplication factor to 
alter the speed of the morse. Values less th 
an 1 will increase the speed" 

6829 INPUT A 

6939 IF A>® THEN GO TO 6829 

6942 PRINT "Please wait": LET s=sxA: LET 1=1% 
A: GO SUB 999g 

6950 GO TO lg 

790G CLS > PRINT AT 9,73; "THE MORSE CODE": PRI 
NT 

7818 FOR x=1 TO 36 


7828 IF X<2? THEN PRINT CHR® (X+64)5" = "3CH 
(Ki 
7838 IF X>26 THEN PRINT CHR® (X+21)35" = "3c 


Cy 
7849 NEXT X 

7858 PRINT : PRINT AT 21,8;"PRESS ANY KEY TO 
RETURN" 

7868 PAUSE @ 

7476 GO To 1998 

8598 LET s=.1: LET 1=.3: LET O=@: LET x#="" 
8519 LET #$="THIS IS A MESSAGE TO DEMONSTRATE 


THE MORSE CODE TUTOR. THE COMPLETE ALPHABE 
T IS AS FOLLOWS ABCDEFGHIJKLMNOPGRSTUVW 
xYZ AND THE NUMBERS ARE 12345673998 


85298 LET qs=" " 
853d LET h#=" " 

99609 RESTORE : DIM c(34,5) 

9818 FOR x=1 TO 36 

9829 FOR y=1 TO 5 

9SSEG READ clx,y) 

9849 NEXT y 

9A5G NEXT x 

9460 DATA 5,1,9,;9,6,1,5,5,5,;9,1,5,1,5,9,1,5,5 
99,9,5,9,9,9,6,5,5,1,5,9,1,1,5,;9,;9,5,5,5,5,8, 
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S,5,;08,4,9,5,1,1,1,0,1,5,1,89,9,5,1,5,5,9,1,1,9 
38,8,1,5,8,0,9,1,1,1,08,9,5,1,1,5,9,1,1,5,1,9, 
S$,1,5,9,9,5,5,5,;09,0,1,9,09,0,9,5,5,1,9,9,5,5;5 
3159,5,1,1,4,90,1,5,5,1,8,1,5,1,1,0,1,1,5,5,;9 
9A7HB DATA 1,1,15,1,1,5,1,1,1,1,5,5,1,1,1,5,5;5 
391,1,5,5,5,5,1,5,5,5,5,5,1,5,5,5,5,1,1,5,5,5, 
1,1,1,s;,;s,l,1,1,1,5 

9d8a DIM c#(36,9) 

9898 FOR x=1 TO 36 

91Gd READ cH(x) 

911¢d DATA Se ety eer ‘ ee a ia ghee yg  eeacce 


“ Cr) a ou nou uo aon ug 
Sm me 3 Ce a i i Pod 

uot aon uu “ow uo oon iT] 
—~— 3 —?* re ee ed 3 ban 3 
ee uo aw nou nou a ou 

— # ee Ff ae aide! : a i ee 
nou ou “oon aon “ooo 

ie — ow = 5 fe we ele ae | eae — !} 

a ou un oon a ou a ou 

enaa 3 eeree gy _saee go ak aoe es CS ee 


9129 NEXT x 
913@ RETURN 
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Flying Geese 


It’s time to don your tweeds, grease up your shotgun and head for the 
marshes. The geese are back from the north and the freezer is empty. 
Don’t worry about the corpses - your faithful hound will deal with those 
after the game is over. Just blast away with your shooter and notch upa 
handsome tally. 


19 REM ** FLYING GEESE @19 
83 MICHAEL BEWS 
29 GO TO 58g 
25 REM ¥*¥FLYING/SHOOT ROUTINE 
38 FOR x=o TO fr: LET d(x)=ei-x+SGN (o-twI 
NT (RND¥tw)): PRINT AT h(x),g{x)-oj" “3: FOR 
z=o TO fr: LET £=-f3 PRINT AT d(x),g(x)5" "Fj 
aS(th-f)5: NEXT z 
49 IF PEEK 23556=65 THEN FOR y=o TO tw: PL 
OT OVER ofen,tfi DRAW OVER os fr,th: PRINT 
OVER af AT si, ths "£"53 NEXT y: LET SH=SH+0: PR 
INT INVERSE of AT G,5xjSHj: IF 9(x)=ev GR g(x 
)=tv THEN LET B=Bto: PRINT AT d(x)d,g(x)3" 
“} INVERSE ofAT @,hytBs: LET g{(x)=o-tw: LET fh 
(x) =o: FOR y=d{(x) TO ni STEP tw: PRINT AT yat 
Wefo" "GAT y-o,fos" "FAT y,fOs"F"FAT yr, FO} 
“6"si NEXT yt PRINT AT ni-o,fos" “SAT ni,fo;" 
“GAT nito,foj" "fj 
SS LET h(x)d=d(x)i LET g(x)=g(x)+twi IF g(x) 
>tn THEN PRINT AT h(x), g(x)-a3" "$s LET g(x 
)=0 
6f NEXT X: IF SH>?9 THEN GO Ta 396 
78 GO TO 3g 
198 FOR x=1 TO 4: LET hix)=1i LET 9(x)=x*5-4 
> NEXT x 
118 CLS § PRINT INVERSE S;AT G,O;"GSHOTS: " 
jAT O,18; PAPER 73 INK 23"<A> TO FIRE "3 INK 
74 PAPER 1;AT 6,24; "SCORE: "3 INK 4;AT 13,21 
P"LEE"FAT 14,285 "E£EEEE"FAT 15,195 "EELEELEE" FAT 
16,195 "££EEEZE"F AT 17,195 "£20"; PAPER 2; INK 
@j"D"; PAPER 13 INK 43 "BZE"5 PAPER 23 INK 9; 
AT 18,223 "D"ZAT 19,223 "D"; 
128 PRINT AT 28,8; PAPER 4;" ay OP 
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APER 13" "; PAPER 43" 
“; INK 53} PAPER 13;"DDDDDDDD"; PAPER 43 


139 PRINT AT 18,15 "A"5AT 19,15 "AN"5 

14g GO TO 3g 

295 REM *X¥*XEND OF GAME ROUTINE 

390 IF B>TOT THEN LET TOT=B 

31@ PRINT FLASH 13;AT 9,193" GAME OVER "5 FL 
ASH @; INVERSE 13:AT 11,43" SCORE: ";B;" IN igd 
SHOTS "$ 

329 PRINT AT 13,43 INVERSE 13 "HIGHEST SCORE: 
"3 TOTS 

33@G INPUT FLASH 13 "PRESS <ENTER> FOR NEXT G 
AME";X$: LET SH=@: LET B=@: GO TO isd 

578 REM *¥INITIALISATIONKXE 

5380 PAPER 1: INK 7: BORDER 6: CLS 

S9qa DIM a$(4,2): DIM d(4)i DIM g(4); DIM ht4 
) 

o8@ LET sx=6: LET hy=30: LET TOT=8: LET SH=9 
: LET #i=15: LET tv=12: LET ev=1i: LET ni=19; 
LET ty=26: LET en=13: LET t4#=34: LET si=16: 
LET ¢0=14: LET ei=8: LET f=-1: LET o=1: LET t 

w=2: LET th=3: LET fr=4: LET tn=29 

619 FOR’x=@ TO 7: READ a,b,c: POKE USR "A"+x 
,a: POKE USR “&8"+x,b; POKE USR "“C"+x,cC3 NEXT 
x 

624 LET as(4)="AB"s LET as(2)="CB" 

4236 FOR X=@ TO 7: READ a,b: POKE USR ““M"+x,a 
: POKE USR "N"+x,b: NEXT x 

648 FOR x=@ TO 7: READ a: POKE USR "D"+x,a: 
NEXT x 

450 FOR x=8 TO 7: READ a: POKE USR "£"+x,a% 
NEXT x 

oof FOR x= TO 7: READ a,b: POKE USR "F"+x,a 
: POKE USR "G6G"+x,b: NEXT x 

699 GO TO 196 

999 REM **U.D. GRAPHICS DATA 
19GG DATA 2,8,8,6,9,9,7,48,9,7,184,9,127, 254, 
127,31,192,31,8,9,15,9,98,3 

1G1G DATA 1,224, 98, 224, 244, 144,232, 144, 88,144 
, 232,144, 248,144,224, 216 

1929 DATA 85,179,85,179,85,178,85,179 

1939 DATA 66,16,132,33,4,81,4, 149 

1946 DATA 6,46,16,56,18, 28,54, 20,118, 24,62,16 
,68,16,60,9 
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Wordsum 


A test of your logical thought processes, this program presents you with 
asum to solve. Not so difficult you might think, but in this case some of 
the numbers have been replaced by letters, and the answer you want is 
not anumber, but the word that the numbers spell! The program gives 
you a different set of number/letter substitutions for each problem, and 
the answer is always to be found if you follow the arithmetic through. 


S BORDER 6: PAPER 5: INK 1 


19 REM *¥¥W ORD S U MH¥ @19 


83 BY MICHAEL BEWS 


28 CLS : PRINT PAPER 73 INK 13;"WO RDS U 


M @1983 MICHAEL BEWS";AT 11,123 "STANDBY" 

35 REM ¥¥*¥#READ WORD LIST¥X¥ 

4G DIM A(18): DIM C(19)!: DIM AS(19): DIM 
(68,6) 

45 LET Be=" " 

58 LET N=1 

68 READ W&(N): IF WS(N) (1)="'" THEN LET 
N-1: GO To 8g 

78 LET N=N+1: GO To 6g 

8@ BORDER 6: PAPER 5: INK 1: LET T=9: LET 
N=1+INT (N¥RND): LET X=6: IF W&(NN) (6)=" " 
EN LET X=5 

82 LET PS=Ws(NN) ( TO xX) 

83 BEEP .1,19 

65 REM ¥*#*¥**GET RANDON LETTER VALUES 

86 CLS : PRINT INK 7; PAPER 13"WORDS 
M @1983 MICHAEL BEWS"; 

98 FOR X=1 TO LEN PS 

199 LET AS(X) =PS (x) 

119 IF X=1 THEN GO To 149g 


WS 


N= 


N 
TH 


U 


126 FOR Z=1 TO X-1: IF A(X) =AS(Z) THEN LET 


A(XI=A(2Z): GO To 199 

139 NEXT Z 

149 LET A(X)=INT (RND¥1@) 

1598 IF A(1)=98 THEN GO TO 14¢@ 
169 IF X=1 THEN GO TO 196 


179 FOR Y=1 TO X-1: IF A(X)=A(Y) THEN GO To 


149 
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18@ NEXT Y 

19@ NEXT X 

296 LET P= 

285 FOR X=6 TO 13: PRINT AT K,93 PAPER 6; BS; 


NEXT X 
207? PAPER 6 


219 FOR X=LEN PS TO 1 STEP -1 

226 LET T=T+A(X) ¥19°P 

238 LET P=P+1 

248 NEXT X 

258 LET S=9X(1898+INT (RNDX¥999@) ) 

268 LET I=T-sS 

278 LET S#=STR# S: LET T#=STR& T: LET IS=STR 
€ I 

280 FOR X=1 TO LEN TS 

369 FOR Y=1 TQ LEN I% 

328 IF IS(Y)=TS(X) THEN LET C(X)=1: LET I8¢ 
Y) =AS(X) 

348 NEXT Y 

358 NEXT X 

36@ FOR X=1 TO LEN (TS) 

388 FOR Y=1 TO LEN (S®) 

490 IF SS(Y)=TS(X) THEN LET C(X)=1: LET S#¢ 
Y) =AS(X) 

429 NEXT ¥ 

438 NEXT X 

449 FOR X=1 TO LEN TS 

459 IF C(X)=@ THEN LET TS(X) =AS(X) 

469 NEXT X 

499 REM ¥XPRINT SUM ON SCREEN¥* 

495 INK 1 

598 PRINT AT 7,22-2¥LEN I$}: FOR X=1 TO LEN 
I$: BEEP .1,X: PRINT I(X)3" “si NEXT X 

519 PRINT AT 9,22-2¥LEN S$}: FOR X=1 TO LEN 
S$: BEEP .1,X+é6: PRINT S#(X)3" "$2 NEXT X 

S28 PRINT AT 14,93" “ 

538 PRINT AT 12,22-2%LEN TS#: FOR X=1 TO LEN 
TS: BEEP .1,X+11: PRINT TS(X)3" "$2 NEXT X 
549 PRINT AT 18,8; INVERSE 13 "PRESS <SPACE> 
TO REVEAL THE WORD"; INVERSE @ 

550 LET X$=INKEYS: IF X="" THEN GO TO 559 
566 IF x$<>" " THEN GO TO 559 

565 BEEP .1,49: PRINT AT 7,6-LEN IS;STR® I;A 
T 9,6-LEN S#;STR® SAT 19,95" "SAT 12,6 


194 Wordsum 


-LEN TSjSTRS T 


370 PRINT AT 12,22-2%LEN TS;: 
PRINT AS(X)5" "Gi 


TS; BEEP 


.1,18+X! 


588 PRINT AT 18,93 


ANOTHER WORDSUM "; 


385 LET B=PEEK 23556: 


85 


FLASH 13 


FLASH @ 
IF B<>49 THEN GO TO 5 


“PRESS 


586 DIM C(é6): GO TO 8g 
599 DATA "HEARTH", "YELLOW", "ENGINE", 
“CARPET", "CLEVER", "FEASTS", "SHADES", 
"RADIOS", "THAMES", "CARROT", "TOMATO", 
"BUTTER", "RUDDER", "HEATER", "PLINTH", 
“TROPHY” 
688 DATA "CHERRY", "HAPPEN", "COFFEE", 
“MOTHER”, "SISTER", "HOUSES", "CABINS", 
"PIRATE", "SILVER", "JEWELS", "BOUNTY", 
“PLANES", "PLANTS", "HOCKEY", "TENNIS" 
619 DATA “COSTLY", "LEMONS", "APPLES", 
"VIOLET", "ROBBER", "RATHER", "POINTS", 
“TANDEM”, "LETTER", "LITTER", "LATTER", 
, "MASTER", "MISTER" 
628 DATA "1" 
3898 LET A=INT (RND¥1@): PRINT Aj" "3 


Sade 


FOR X= 


1 TO LEN 
NEXT X 
<1> FOR 


"RABBIT" 
"POTATO" 
“CHEESE " 
"FARMER" 


“TEAPOT" 
"ISLAND" 
"TOWELS" 


"ORANGE " 
"PAINTS" 
"FASTER" 
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Asset Stripper (48K) 


This is an investment simulation in which you compete with the 
computer’s company, Spectral Investments, to acquire £1 million. 
Starting with £100,000 you must study market intelligence reports and 
buy and sell shares on the stock market. If you finda company which is 
rich in capital assets but running ata loss, you can make a bid for the 
company with a mind to distributing its assets amongst the shareholders. 
Tomake a takeover bid you must attempt to buy 51 per cent of the 
shares, at which point the opposition will start bidding against you. 
Occasionally, Spectral will initiate its own takeover bids. The longer the 
bidding continues, the greater the possibility that a ‘third party’ will 
intervene. 


Ordinary shares may be bought and sold in any quantity and a regular 
review of share prices is given, together with a market ‘wire service’. If 
you want to look more closely at the performance ofa particular 
company, you have the option of calling up a copy of its annual report 
which will give you information on assets, share prices, profits and other 
useful data. During each round, all the companies manufacture and 
trade their produce, and it is this activity which determines profitability. 
Frequently a company will invest in new capital equipment and this 
expenditure will cause a small drop in the share price. Don’t be too hasty 
to sell your shares when a rise in productivity might just be around the 
corner. 


19 BORDER 1: PAPER 1: INK 7 CLS 

29 PRINT AT @,9; "ASSET STRIPPER": PRINT AT 
2,7;"@ R. Erskine 1982"53AT 4,5; "What is your 
surname?" 

32 INPUT no 

5Q PRINT AT 5,4; "Enter difficulty level "jA 
T 6,415 "(1,2 ord)" 

62 INPUT lev 

78 PRINT AT 7,19; "Please wait" 

8S RANDOMIZE 

99 GO TO 3269 

198 PRINT TAB (11)3 "ACCOUNTS" 

148 PRINT 

159 PRINT n@jes 
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169 PRINT 

17a PRINT "Liquid assets “,"£";INT ((ch+. 985 
#¥1Gs)/iad 

189 PRINT 

199 LET g=@: LET qli=q 

2909 FOR x=1 TO 18 

2198 LET gq=qte(x) 

228 IF #$(x)="c" THEN GO TO 24¢ 

238 LET ql=qi+(e(x)d¥d(x)) 

249 NEXT x 

258 PRINT "Shares held ",INT q 

2698 PRINT 

278 PRINT "Total share value £"; INT ((qlt++.9 
B95) *199)/19¢ 

289 PRINT 

298 PRINT “Total assets", "£";INT ((qitch+.9d 
5)*¥199) /198 

386 PRINT ¢ 

31g IF qi+tch>s THEN GO TO 27268 

S328 IF gqitch<@ THEN GO TO 2746498 

S3a LET q3=¢ 

34a FOR x=1 TO 1g 

345 IF f8(x)="c" THEN GO TO 355 

3598 LET q3=q3+ (F(x) ¥d(x)) 

355 NEXT x 

SoG IF q3t+zxch>s THEN GO TO 276g 

3794 IF gq3+zxch<@ THEN GO TO 2729 

S8@ IF t$="x" AND ch+qi>zxch+q3 THEN GO TO 
2728 

39a IF te="x" AND chtqi<zxch+qQ3 THEN GO TO 
2769 

41a PRINT m$ji" Claims assets of £"j3q3+zxch 
429 PRINT 

459 RETURN 

9489 PRINT TAB (18); "WIRE SERVICE" 

499 LET q=8: LET qi=¢ 

Sig LET m(l)=asa 

S29 FOR x=1 TO 10 

33d IF £$(x)="c" THEN PRINT c$(x), "Ceased t 
rading” 

548 IF €$(x)="c" THEN GO TO 489 

SSa@ PRINT 

56a LET q=qr+il 

378 IF b(x)>a(x) AND e(x)<SiS9GG AND £(x)<St 
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O@988 THEN PRINT c#(x), "May be ripe for takeoa 
ver“ 

58g PRINT 

59@ IF g(x)<i AND w(x) >S5S9 THEN PRINT cCS(x), 
"Profits low" 

698G PRINT 

619 IF wtx)<48 THEN PRINT c#(x), “Heads for 
trouble" 

620 PRINT 

638 IF g(x) >S THEN PRINT c#(x),"Set for goo 
d profits" 

6496 PRINT 

650 IF vix)>@ AND v(x)>=1 THEN PRINT c%(x), 
"Announces "jINT vix)3" Redundancies" 

6468 PRINT 

679 LET ql=qi+td(x) 

675 PAUSE 199 

689 NEXT x 

699 IF q=@8 THEN LET t#="x" 

790 IF q=98 THEN GO TO 119 

71igd LET asa=ql/q 

720 PRINT "All share average “SINT ((asat. 99 
5) #190) /199 

738 IF asadm(i1) THEN PRINT “up “"jINT ( (Casa 
-m(1))+,. 985) #199) /199 

749 IF asa<m(i1) THEN PRINT “down "SINT (((m 
(1) -asa)+.995)*1998) /199 

750 IF asa>i(2) THEN PRINT “All time high" 
749 IF asa>i(2) THEN LET i1(2) asa 

7768 IF asa<i(3) THEN PRINT "All time low" 
788 IF asa<i(3) THEN LET i(3)"asa 

819 RETURN 

849 FOR x=1 TO 16 

650 IF ##(x)="ce" THEN GO TO 119 

860 IF lev=i GR lev=2 THEN GO TO 88g 

e7o IF f#¢(x)="x" AND #(x)>@ AND £# (x) <S1999d 
THEN GO SUB 1119 

S68 IF wtx)<é1 AND #(x)<Si9g999 THEN GO SUB 
1195S 

9GG IF £#(x)="c" THEN GO TO 1919 

919 IF zxch<i@@ THEN GO TO 1919 

915 IF lev=1 AND RND> .5S THEN GO TO 9592 

920 LET £=C(C(S/1GG)¥51) -F (x) )¥d(x)) 

939 IF (b(x) /199)¥51>4 AND €<zxch AND €(x)<5 
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ig968@ AND e(x)<S5198989 AND g(x)<1 THEN GO TQ 


2420 
948 
95a 
955 
962 
978 
98a 
99a 

1999 

19138 

1929 

1949 

URN 

1958 


IF *#%(x)="c" THEN GO TO Ii91¢ 

IF zxch<19g9 THEN GO TO I1g@19g 

LET tenth=zxch/1g 

IF w(x)26@ AND g(x)>@ THEN GO SUB Lada 
IF lev=1 THEN GO TO idig 

IF w(x)>69 AND g(x)>!1 THEN GO SUB Iig4¢g 
IF w(x)>69 AND g(x)>5 THEN GO SUB Ia4g 
IF w(x)>69 AND g(x)>198 THEN GO SUB 1949 
NEXT x 

RETURN 

IF (tenth/d(x))+e(x)+#(x)>1(x) THEN RET 


IF f(x)<S19999 AND (f(x) 4+(tenth/d(x)))>5 


42 THEN RETURN 


1g4e8 
1g7¢d 
1dsg 
1999 
1igg 
liig 
ll2g 
Lil3gd 
114¢ 
L1isg 
1189 
1199 
l2909g 
l2ig 


LET a(x)=a(x) +tenth#¥1.95 

LET zxch=zxch-tenth 

LET #(x)=f(x)+4INT (tenth/d(x)) 
LET 1¢(x)=1(x)-INT (tenth/d(x)) 
RETURN 

LET a(x)=alx)-( (x) #d(x))#¥1,.95) 


LET zxch=zxchtf(x)¥d(x) 

LET 1¢x) 1x) +f (x) 

LET f(x)=9 

RETURN 

PRINT 

PRINT TAB (9)3 "SHARE PRICES" 

PRINT 

PRINT "COMPANY"; TAB (11); "SHARE PRICE"j}T 


AB (24); "UP/DOWN" 


122g 
1239 
1249 
OWN” 
1254 
126g 
“,ga" 
127¢ 
*.gg" 
1289 
((d(x 
1299 
C(n(x 


PRINT 
FOR x=1 TO 1g 
IF €#(x)="c" THEN PRINT c&(x) 3 "CLOSED D 


IF €£@(x)="c" THEN GO TO 1319 
IF INT d(x)=d(x) THEN LET p#=STR& d(x) + 


TF INT n(x)d=n(x) THEN LET r#=STR® n(x)+ 


IF INT d(x)<d(x) THEN LET p#=STR® (INT 
)+,995)%198)/198) 
IF INT n(x)<n(x) THEN LET r#=STR& (INT 
)+,995)#199) /199) 
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1398 PRINT c#(x); TAB (21-LEN p$+t1) 3 pss TAB (3 

O-LEN rStl)jrs 

131g NEXT x 

13298 PRINT 

1389 PRINT "ALL SHARE AVERAGE “SINT ((asat.09 

5)*199)/199 

1398 PRINT "You have £";INT ((cht+.9O5) #180) /1 

73) 

14198 RETURN 

1439 PRINT “BUY HOW MANY?” 

1449 INPUT y 

1458 IF y¥d(x)>ch THEN PRINT “You have insuf 

ficient cash” 

14469 IF y#¥d(x)>ch THEN GO TO 14398 

1479 IF y>1¢x) THEN PRINT "Not enough shares 
available" 

1480 IF y>1¢x) THEN GO TO 143¢ 

1498 IF yte(x) 958@@G9S AND e(x)<519G@GG@ THEN G 

Q TO 1668 

159@ LET chech~-(y¥d(x)) 

1518 LET 1(x)=Hllx)-y 

1520 LET atx)= (atx) + ly¥d(x)))#1.95 

1539 LET e(x)=e(x) ty 

1549 LET x$="p" 

15598 RETURN 

1579 PRINT “How many do you wish to sell?" 
15890 INPUT y 

1599 IF »>et(x) THEN PRINT “You do not hold t 
hat many" 

1688 IF y>et(x) THEN GO TO 1576 

1618 LET chechtly¥d(x)) 

1628 LET 1(x)l (x) ty 

1638 LET atx) =atx) -—Cly#d (x) ) #1.95) 

1648 LET e(x)Fel(x)-y 

1645 LET x$="p" 

16598 RETURN 

1689 LET t#="phaseh" 

1698 LET z1i=.91 

17896 PRINT TAB (7)5 "TAKEOVER BID" 

17985 PRINT 

171@ PRINT “Your shareholding is "s;INT (e(x)* 
199) /s3" percent” 

1728 PRINT "Current share price is £"3;INT ((d 
(x) +. 995) *199) /1998 
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1738 PRINT "There are "SINT 1(x)3" available” 

1749 PRINT “You need “j;INT (Sigggd-e(x))3" fa 

r a majority" 

1752 PRINT “These cost £";INT (((Sigaggg-e(x)) 

Hd (x)+,.995) 4199) /19G,"at market price" 

1755 PRINT “You have £";INT ((ch+. 995) *¥19G)/1 

BA 

1756 LET eg=g 

1757 FOR v=1 TO 19g 

1758 IF #$(v)<>"c" THEN LET eg=zegt(f(v) ¥d(v) 

) 

L759 NEXT v 

1769 IF RND>.1@ THEN GO TO 1769 

1762 PRINT “Third party wins bid" 

1763 GO SUB 2949 

1764 GO TO 1899 

1769 PRINT “How much do you bid per share?" 

1779 INFUT z 

1819 IF zi>z THEN GO TO 188g 

1829 LET ki=a(x)+(Siggga¥(z+.g1)) 

1822 LET k2=(S1@ggg-t (xd) ¥(z+.91) 

183@ IF ki>k2 AND (zxehteg)>=k2 THEN LET z1= 

zit.¢l 

1848 IF zk>z THEN PRINT m#;" bids "SINT ((z1 

+,.995)¥199) /19d¢ 

1869 IF zi>z THEN GO TO 1749 

1879 IF zi<z THEN GO SUB 1929 

1889 IF zi>z THEN GO SUB 2179 

1899 LET z1=¢ 

1895 LET z=08 

1996 IF t@="phaseh" THEN GG TO 1549 

1919 IF t#=“phasem" THEN GO TO 1ig1¢ 

1929 REM disposal 

1938 PRINT 

1949 LET Zi=¢ 

195@ LET F=0 

1969 PRINT “YGU HAVE WON THE BID" 

19798 LET CH=CH-(Z¥(S1igggg-E(xX))) 

1988 LET A(X)=A(X)+(Z¥(S1GG@GG-E(K))) 

1999 LET E(X)=E(X)+(S1gg@gg-E(x)) 

2899 LET L(X)=S-(E(X)+F(X)) 

2918 PRINT “Do yo want to strip the assets of 
this company?" 

2828 INPUT ys 
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2038 IF yS="n" THEN RETURN 

2949 PRINT "Assets are being distributed", "am 
ongst shareholders" 

2959 LET psh¥(e(x) #199)/s 

2468 LET zxpsh=(f (x) ¥199)/s 

2976 LET ao=bh(x)/19a 

2969 LET ch=ch+t (psh*¥aa) 

26°98 LET zxch=zxch+t (zxpsh*ao) 

2199 IF a(x)<=@ THEN GO TO 21498 

2119 LET d(x)=alx)/s 

2126 LET ch=ch+le(x) #d(x)) 

213@ LET zxch=zxcht (f(x) ¥d(x)) 

2149 LET #$(x)="c"” 

21508 LET 1(x)=9¢ 

2169 RETURN 

2198 IF 21¥(51999G-f(x))>zxch THEN PRINT "Sp 
ectral withdraws": RETURN 

2298 PRINT m@;" has won bid" 

2228 LET zxch=zxch-((S19960-f (x) )¥2z1) 
22308 LET al(x)Ba(x) +((518890-F (x) )¥z1) 
22499 LET f(x)=f (x) + (519999-F (x) ) 

2259 LET z1=9 

2269 IF g(x)<1 THEN GO SUB 2649 

22798 RETURN 

2299 FOR x1 TO 19 

2398 IF £S(x)="c" THEN GO TO 2592 
23198 LET vix)=08 

2328 LET c(x)=9 

2330 IF a(x)<1@@@@ THEN LET a(x) =19g9g 
2349 LET j(x)=atx)/19 

2358 LET c(x)Sc(x) +j (x) 

2PB6S IF n(x) <j (x) /18G8 THEN LET h(x)=j (x) /18 
254) 

2378 IF b(x) >=a(x)/28 THEN GO TO 249¢ 
238G LET c(x)=c(x)+((alx)/18)-b(x)) 
2399 LET b¢(x)=INT (ax) /19) 

2499 LET prod=j(x)/1¢g 

2418 LET rnd=INT (RND¥3555) +1 

24298 IF rnd=1 THEN LET wtx)=w(x)-il 
2430 IF wnd=3 THEN LET wlx)=wlx) +1 
24490 LET t(x)=prodk¥w(x) 

2458 LET clx)=c(x) + th (x) #5999) 

2469 LET prof=t(x)-c(x) 

2478 LET a(x)=atx) +t (x) 
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2489 
2498 
2589 
251g 
2529 
25308 
2549 
2558 
2569 
25768 
2582 
25385 
2599S 
261g 
2629 
26498 
2669 
2673 
2688 
269S 


LET a(x)=alx)-c(x) 

IF atx)<=198888 THEN LET vi(x)=h(x) 

IF a(x) <=1@9G@ THEN LET h(x)=j (x) /igag 
LET vix)=vi(x) -h (x) 

LET g(x)=(prof#igg)/tix) 

LET spi=d(x) 

IF atx)<1@@99 THEN LET a(x)=i1999¢ 

LET d(x)Fatx)/s 

LET n(x)d=d(x)-spl 

IF a(x)<18@@@ THEN LET a(x)=19999 

IF RND>.Y THEN LET wtx)=wtx)4+1¢ 

IF RND>.9 THEN LET wtx)=wtx)-1¢ 

NEXT x 

RETURN 

PRINT : PRINT 

LET t%="phasem” 

PRINT m$j" bid for" 

PRINT c#(x) 5 “takeover” 

LET zl=d(x) 

PRINT “at "GINT ((dtx)+.945) #199) /196; " 


per share” 


2799 
2749 
2750 
2778 
2789 
2799 
2898 
23819 
2829 
2832 
2859 
2869 
257 
2898 
2995 
2919 
2929 
2939 
2945 
29598 
29708 
2969 
2965 


GO TO i7ig 

PRINT “You have won” 

GO TO 278¢ 

PRINT m$3" has won", "with £"3zxch+q3 
PRINT “Do you want another game?" 
INPUT v& 


IF v#="y" THEN GO TO ig 
STOP 

REM loop 

GO SUB 2289 


GO SUB 22898 

GO SUB i1g¢g 

GO SUB 469 

GQ SUB 11869 

PRINT “ENTER INITIAL OF CHOSEN COMPANY" 
PRINT "OR F(PASS) "Swe 

INPUT x 

IF x="p" THEN GO TO 324¢@ 

FOR x=1 TO 19g 

IF CODE c#(x)(1)=CODE x$-32 THEN GO TO 


NEXT x 
GO TO 298g 


Asset Stripper 203 


2978 IF #%¢(x)="c" THEN GO TO 2999 

2989 PRINT 

2998 PRINT c#(x) 

3989 PRINT "Liquid capital £"3INT ((alx)+.995 
)¥1989) /198 

3A19 PRINT "Capital equipment £"FINT ((b(x)+, 

BI5)¥198)/198 

3928 PRINT "Employees "3 INT h(x) 

3ASG PRINT “Overheads £"3INT ((c(x)+,. 905) %199 
)/198 

364G PRINT “Profit £"3INT ((t¢x)-o(x)+.995) 1 

89)/198 

3258 PRINT "Profit percent of turnover £°3 INT 
gtx) 

3968 PRINT “Share price £"“ZINT ((d(x)+. 995) ¥1 

9B) /199 

3978 PRINT "Shares available "j3INT 1(x) 

39868 PRINT “Shares held by you "sf; INT e(x) 
3999 PRINT "Percentage shares held by you "jI 
NT (Ce(x) #199)/s) 

319@ PRINT "You have £"3INT ((cht+.995)*199)/1 

ae 

31198 PRINT ” es my 
3i2g IF e(x)>=519@99 THEN PRINT "Dispose of 
assets?” 

3139 IF e(x)>=Siggge@ THEN INPUT at 

31496 [F etx) <Sig@ga@ THEN LET a%="n" 

315@ IF e(x) >=Sigggg@ AND aS="“y" THEN GO SUB 
2549 

3i6@ IF f(x) ="x" THEN PRINT “Buy (b),Sell ¢ 
s),or Pass (p)" 

3170 IF ¢%¢(x)="x" THEN INPUT x# 

3175 IF f#(x)="e" THEN LET x#="p" 

3188 IF x#<>"p" AND x#<o"s" AND x#<>"b" THEN 
GO TO 29989 

3199 IF. x#="b" THEN GO SUB 142¢ 

3208 IF x="s" THEN GO SUB 1546¢ 

3219 IF x#="p" THEN PRINT “Look at another c 
ompany?(y or n)” 

3229 IF xS="p" THEN INPUT as 

323598 IF x#="p" AND at="y" THEN GO TO 2899 
3249 GO SUB 829 

3259 GO TO 285¢ 
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3278 LET 
3289 DIM 
3299 LET 
3368 LET 
3310 LET 
S326 LET 
S3S3¢@ LET 
3346 LET 
335d LET 
3360 LET 
3370 LET 
33868 LET 
3399 LET 
34998 DIM 
DIM d(x) 
(x): DIM 
350g DIM 
S5ig LET 
3528 DIM 
3549 LET 
355g LET 
356a LET 
S578 LET 
3$56¢@ LET 
3599 LET 
3698 LET 
3626 DIM 
S639 LET 
36498 DIM 
3689 DIM 
3699 FOR 
3499 FOR 
3748 LET 
S719 LET 
3728 LET 
3739 LET 
3749 LET 
3750 LET 
3760 LET 


m$="Spectral Investments 
c$(19,18) 

c#(1)="ACME CORP” 
c#(2)="BRN IND.” 
c#(3)="CAPRA STEEL" 
c$(4)="DELTA GROUP" 
cS(S)="ELLIOT CORP" 
6$(46)="FORAX CHEMICALS" 
c$(7)="GNS INT.” 
c$(83)="HOPE HOLDINGS” 
c#(9)="INCE AND CO," 
c#(1@)="JONES AND PEEKE" 
x=19d 

a(x): DIM bB(x)s DIM clx)s 


DIM p(x): DIM e(x)s DIM #(x)5 


h(x) 

i(3) 

w=" “ 
j(x): DIM 1(x) 

et=" Investments Ltd” 
s=19668990¢ 

ch=16d9869¢8 

zxch=ch 

aw=500d0 

asa=¢ 

tH="o0" 

m(3) 

pt=d 

n(x): DIM wtx):s DIM vix) 
f$(x) 

x=1 TO 19 

x=1 TO 198 

a(x)=INT (RND¥s/2) +1 
d(x)=s/a(x) 

b(x)=INT (RND¥5S/16) +1 
h(x)=b(x)/1d/1dag 
wx) =64¢ 

f$(x)="x" 

l(x)=s 


3778 NEXT x 
37688 GO TO 282%8 


Ltd" 


DIM tx): 


DIM 9g 
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Bricklayer 


You are in control of a small aircraft which flies across the top of the 
screen. From the bottom of the screen, a large wall is being built up 
which will eventually fill the whole of the playing area. The object of the 
game is to drop men out of the aircraft, aiming to plummet them through 
gaps in the wall to the bottom of the screen. Ifa man should hit any part 
of the wall then a life will be lost. In order to create gaps for the men to 
drop through and to prevent the wall advancing too far up the screen, 
you also have the option of dropping bombs which blow sections of the 
wall away. 


1 PAPER 3: BORDER 5: CLS 
2 GO SUB 4999 
3 PAUSE i9¢g 
5 LET hs=¢ 
19 GO SUB 189 
13 PRINT AT @,13; "HI: “jhs 
26 LET x=x+f 
3@ IF x=@ OR x=29 THEN BEEP .94,19: LET f= 
-f 
32 PRINT AT @,93"SCORE: ""§SjAT B, 245 "LIVES: " 
jlives;" “* 
49 PRINT AT i,xs" B” 
5@ IF INKEY#=2#"z" THEN IF t<>1 THEN LET t= 
4: LET kex4+1: LET 12 
SS IF INKEYS="m" AND x>3 AND x<27 THEN IF 
z<>1 THEN LET z*1: LET q=xti: LET i=2 
69 IF t=1 THEN PRINT AT 1,k3" “i LET 1l=1+1 
: PRINT AT 1,k3"C"i BEEP .@@2,8: IF SCREENS ( 
I+1,k)<>" “ THEN GO SUB {4g 
65 IF z=1 THEN PRINT AT i,qj3" “: LET iti+l 
+ PRINT AT i,q3 "2": BEEP .@@2,-5: IF SCREENS 
(iti,q)<>" "° THEN GO SUB i162 
76 IF 1=2i1 THEN PRINT AT 1,k$3* "i: LET t=@ 
75 IF is2i1 THEN LET s=s+b*¥2: BEEP .1,28: P 
RINT AT i,qs" "“: LET i=@: LET z=9@ 
110 LET a=atec 
11S PRINT AT byas INK RND¥3; PAPER 73 "A" 
129 IF a<3 GR a>27 THEN LET c#-c: LET b=b-1 
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125 
13g 
149 


IF b=3 THEN GO TO isg¢ 
GO TO 2¢g 
PRINT AT 1,ki" "i PRINT AT 1+1,k-235"% 


"s; LET ted: IF 1<2@ THEN PRINT AT 1+2,k-13" 


1596 RETURN 

14648 PRINT AT i,q3 FLASH 13;"#": LET lives=liv 
es-1: BEEP .1,-30: BEEP .1,~-25: LET z=@: PRIN 
TAT i,Qs" "SAT it1,q-13" "; IF lives=@ THE 
N GOTO igg¢d 

164 RETURN 

180 DATA G,124,126,126,126,126,126,126 

181 DATA 8,24, 118,219, 255,119,24,8 

182 DATA 231,126,69,469,69, 68, 498, 24 

183 DATA 28, 28,8,42,8,8, 29, 34 

199 FOR a=USR “a” TO USR°~"d"4+7: READ b: POKE 
a,b: NEXT a 

191 LET a=27: LET b=29 

192 LET c=#-.46: LET t=@: LET lei: LET z=@: LE 
T iil 

193 LET x=@: LET f=1 

194 LET sg 

197 LET lives=1g 

200 RETURN 

idg@@ IF lives=@ THEN PRINT AT 8,30; "9" 


191¢ 
1922 
1925 
193g 
19835 
194¢ 
1g3Sg 


FOR o=-398 TO 38 STEP 2 

BEEP .@1,0 

NEXT o 

PRINT FLASH 15AT 15,73 "ANOTHER GAME?" 
IF s>hs THEN LET hs=s 

INPUT a& 

IF aS(1)="y" THEN GO SUB 191: CLS : PAU 


SE i1gg: GO TO 15 


1969 
49099 
49190 
4913 
from 


wall 


STOP 

PRINT AT 1,19; "BRICK LAYER” 

PRINT AT 1,183; OVER 13" by 

PRINT ’"The object is to drop humanoids 

the spacecraft at the top of the screen 
As the game, progresses a 

will be built up, starting from the bot 


tom.Holes can be made in this by releasing a 


bomb. 
ime a 
ost." 


You have 19 lives and each t 
humanoid hits the wall a life will be l 
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$915 PRINT ''" Zeveeeeasess DROPS BOMES 
M.e.sRELEASES HUMANOTDS" 

4917 PRINT INVERSE 13’"Press any key to star 

t." 

4929 PAUSE 9 

4925 CLS 

4938 RETURN 


Dogfight 


Up in the wild blue yonder, you and the enemy ace are duelling above the 
trenches. Swoop down on the foe, hang on his tail, catch him unawares 
from below, with your trusty Brownings spitting leaden death. All good 
clean fun, but watch for the wraparound! 


1 REM Solo Dogfight @ R. Erskine 19683 
5 GO SUE 880g 
1g GO SUB ?ERg 
28 BORDER 1: FAPER 5S: CLS 
og GA SUB 719g 
1999 REM mainloop 
19@5 IF p(S)=qt(3) AND p(4)=q‘4) THEN GQ SUB 


igi@ PRINT AT p(3),p(4)5" 

i@z@ IF pti)<21 THEN PRINT INK 13AT pl), pt 
2IICHRS (atid3): LET p(S3l=ep ti): LET p(4)=p(2) 
1825 IF o(i)d=q(3) AND p(2)=q(4) THEN GO Ta 4 
Oa 

1939 PRINT AT q(3),q(4)i" * 

1949 IF q(i)i2t THEN PRINT INK @3AT q(i),.aqt 
2):CHR (aatisi): LET q(S3)=qli}: LET gl(4)=qi2 
) 

165@ IF INKEY$S="*" AND g=1 THEN LET £f=1 

196@ IF RND>.S AND g=-1 AND ABS (p(i)-q(i))<7 
AND ABS (pl2)-g(2))<? THEN LET =2 

i@?@ IF INKEY$="a" AND g=1 THEN LET a=ati: I 
F a=9 THEN LET a=i 

1a@s@ IF RND>.9 THEN LET aataati: IF aa=9 THE 
N LET aa=i 

1d9@ IF INKEY#="Zz" AND g=i1 THEN LET a=a-i: I 
F a=9 THEN LET a=8 

figs IF RND>.? THEN LET aa=aa-!: IF aa=@ THE 
N LET aa=8 

1liig IF £>@ THEN GO SUB 2990 
1ii5 IF pti)>2@ THEN LET p(i)=@ 

1116 TF q(i)3}2@ THEN LET q(i)=8 

1117 IF p(i)<@ THEN LET p(1)=2a 

1iS IF ¢f1!<@ THEN LET q(1)=29 

113@ LET plidep(i)ed(a): LET p(2)=p(2)+d (até) 
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LF pe2ooS2- THEN LE? «Clb 
L276. TF pi2ya@d: THEN “LET pt2vssl 
ET atli=q(t)+etaa): LET g(2)=ql2)+e(aat 


121@ IF qt(Z)>S3i1 THEN LET q¢ 
220 IF q(2)*@ THEN LET qt2 
1270 LET g=-qg 

@ Ga TO i¢@ea 


2)=6 
) 1 


Tr 
ea 


AY 
a 


@ REM fire 

PAia IF 4=1 THEN LET x=FN a(p(2)): LET y=FN 

bt(p¢i)): LET y=-y 

2020 IF #=2 THEN LET x=FN a(qt2)):i LET y=FNn 

b(q(i)dd: LET y=-y 

2ZOa3G IF €£=1 THEN LET xx=fla)i LET yy=f (ate) 

2@490 IF #=2 THEN LET xa=glaa)i LET yy=glaato 


hd Jb 
2 Q hit 
Q 


2045 LET cnt=d 

2A5S6 IF x>*24P GR «<8 OR vyi8 OR yo1i75 THEN GQ 
To £260 

2O55 IF crt>}@ THEN PLOT INK £3 OVER 13x,¥ 
2O70 IF f=1 AND ATTR (qQ(1),qQ(2))=41 OR f=z2 AN 
D ATTR (p(i),p(2))=42 THEN GO TO Se@e 

2885 LET crnt=crt+li 

2098 FLOAT INK £5 QVER i3x.y: LET x=x+xx: LET 
SSI 

2495 IF cnt*<é THEN GO TQ 2954 

2P2adG LET f=8: RETURN 

298@ PRINT PAPER 25 INK 63 FLASH 15AT 28,q(2 
ig 

3G9@ FOR x=1 TO 1@: BEEP .1,-2@: NEXT x: PRIN 
T PAPER S3AT 26,q(2)5" * 

3ig@@ LET lives2=lives2-1: IF lives2=@ THEN G 
Qa Ta 46@a0 

3ii@ LET aa=1: LET q(1l)=208: LET q(2)=31 

3126 GO SUB 7i1Ga 

Sisaq RETURN 

4qge@ REM collision 

4@1@ PRINT INK 23 PAPER 6: FLASH 13AT p(3),p 
(4)5"%" 

4429 LET lives=lives-i1: LET lives2=lives2-1 
4@z@ FOR 1=1 TO 18: BEEP .1,-28: NEXT 1 

4046@ IF lives=@ QR lives2=@ THEN GG TO 6446 
$@45 PRINT AT p(B), p45” * 

4a@sq@ LET a=i: LET aa=i: LET plid=2@: LET p(2) 
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=@: LET gti1)=2@; LET gt2)=31: LET p(S)apti): 
LET p(4)=p(2): LET g(S)sq(i)i LET g(4)=q(2) 
4%6@ GC SUB 7100 

4é@7a 350 TA loge 

Sae@a@ TI  ¢=1 THEN PRINT PAPER 25AT q(1l},q‘2} 
Cae 

BC1ad IF £=2 THEN PRINT FAPER 25AT p(l:>,ple) 
cae sats 

S82¢@ FOR l=1 TQ is: BEEP .1,-28: NEXT 1 

S94a@ IF f=1 THEN LET lives2=ilives2-1i: IF liv 
esz=@ THEN GQ Te 6€¢0 

S@5@ IF £=2 THEN LET lives=lives-1i: IF lives 
=@ THEN GO TO é6aG9 

Bdead IF f=1 THEN LET q(il)=20: LET q(2)=31:5 Lb 
ET aa=l 

Sarva IF f=2 THEN LET p(i)=26: LET pt2)s3li bk 
ET a=1 

S9ea GO SUR Fie 

Saeq GO TQ 2199 

66@@ REM end: IF lives=@ AND lives2=@ THEN FP 
RINT AT 186,45 "The result i5 a draw" 

6918 IF lives=@ AND lives2?>@ THEN PRINT AT 1 
6,335 "The computer is the winner" 

eg2a IF lives>@ AND lives2=@ THEN PRINT AT 1 


3,45" You are the winner” 

483@ PRINT AT 26,435 "Fress any key to restart” 
694@ IF INKEY$="" THEN GO TO 6449 

6@5@ RUN 

Pig@ PRINT FAPER 1: INK ?PSAT 21,93 "PLYR LIVE 
Si "“silivess" COMP. lives: "jlives2 


7PLi@ RETURN 

en@o PAPER i: INK 7: BORDER 1: CLS 

B8G1igG PRINT AT @,7; "SOLOQ-DQGFIGHT”": PRINT | PR 
INT 

8628 PRINT : PRINT " Player controls:”" 
: PRINT : PRINT " a = up =z = down x = fire 
"> PRINT : PRINT : PRINT : FRINT "The player 
controls the blue “,"aircraft and the compute 
r ","controls the black.” 

Sa5@ FRINT AT 21,45 "Press any key to start” 
Saéq@ IF INKEY#="" THEN GO TQ 3460 

Sarg RETURN 

Fagg DIM pl(4) 

SB1s DIM qt(4) 


992m DIM g$(2,1) 

S@3q DIM d(i6): DIM ef16d6) 

S49 LET g=1 

9650 LET p(i)=20:5 LET p(2)=8: LE 
T qg(2)=31: LET p(3)=p(i): LET pt 
gtSi=aql(id: LET q(4)=q(S) 

99e6n LET a=i: LET aa=a 

og 7G RESTORE : FOR x=1 TO 16 


P7ASA READ n: LET d(x)=n 

eeO@ READ ni LET @8(xd=n 

Siga NEXT « 

911G DATA €,8,-1,-1,-i1,-i1,-1i1,-1, 
yi 


912B DATA 14-1,1,-1,9,G,-1,1,-1, 


913@ LET #=9 

9149 LET g#(1)=CHR® (at+i43): LET 
aatisi) 

9150 FOR x=USR "a" TQ USR "p"+7 
9169 READ nm 

9174 POKE x,n 

S1f@ MEXT x 

919 DATA G,15,132, 
S208 DATA &,26,52,7,18, : 
SZ1G DATA $4,24,116,84,16,18 
G22 DATA 16,72) 356, 208; 72.36.2,4 
9230 DATA ,240,0, 255,33, 248,9,9 
Seaq DATA 32757. 22.194, S6y894 16 
@25@ DATA 12,8,8,8,42,46,42,42 
9260 DATA 32,64, 36,18,11,36,18,8 
92765 DATA SG, 249,33, 255,9,248,0,8 
OD7G DATA 16,88,164,144, 72,3752; 
2275 DATA 42 


»42,46,42,8,8, B 8 
@ DATA 6. 46.56, 44 - 16, Se, 645 32 
5 DATA 6,9,15,9,255,132,15,9 
6 DATS 6,464,1649,18,5,36,26,4 
? DATA 46,16,16,16,24,116, 84, 
& DATA Pare het ates 
LET lives=3: LET lives2=3 
DEF FN a(x} =x¥6+4 
DEF FN b(x)=x¥e-172 
DIM £(16): DIM 9g(16) 
FOR x=1 TQ i6: RE4SD ni LET 


nm 


0 +0 
oO 9D 
sd 


td - hoo ho ho oA) 


td 
fl bh) ke 


Led 


ovoo0 0 
A Sig & 


xO 
ud 
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T q(i)=26: LE 
4)=p(2): LET 


O,G.1,1,1,1,1 


1,-1,1,0,90,1, 


g#(2)=CHRE ( 


@ 


84 


#(x)=ns NEXT 
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93h 


DATA 8,9,8,-8,-8,-8,0,8,9,8,8,8,0,-8,-8, 
936@ FOR <=! TO 16: READ wn: LET g(x)=ni NEXT 
9378 DATA ~8:-8,9,8,8,8,9,~-8,9,8,8,8,0,-8,-8, 


9999 RETURN 
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This is series of six programs which have been divided into three self 
contained groups. It represents the evolution of life from the single celled 
amoeba to modern man, linked by a single theme — survival! 


Evolution 1 


Evolution | begins with the amoeba stage, in which the player controls 
the movement of a tiny amoeba which must wander round the screen 
eating spores whilst avoiding attack from other single celled creatures. 


In the second program in this suite the player is transformed into a frog 
which has to dodge from side to side avoiding capture by birds whilst 
zapping the required number of airborne flies with its tongue. There is 
no fairy princess as a reward for this one but instant promotion into the 
form of a beaver in the third program, in which you must swim around 
and capture ten fish whilst avoiding contact with a vicious crab. 


1 BORDER @: PAPER @: INK 7: CLS 

198 PRINT AT 9,6;5"E VOL UTI O 'N* 

11@ PRINT ° INK 6’ "This semi-scientific seri 
es of"? INK S’"routines gives you the chance 
to®’ INK 4° "evolve from an amoeba to a human" 
* INK 7’ "based on the theory that only”’ INK 
6’"the strong survive.”"'’ INK 5S’ "Press ENTER 
to continue." 

128 PAUSE @: CLS 

122 PRINT "This program goes from amoeba t 
Oo frog to beaver."’ INK S3S’"“The next program g 
oes from gorilla to caveman."’ INK 4’"Th 
e final program of this trio involves the pr 
esent stage of evolution - MAN and his tech 
Ce nology." 

123 PRINT *"“The intention is that you should 
try the stages in the correct order but aft 
er each stage you are given a menu of option 
s.” 

124 PRINT ’"“Press ENTER to continue.": PAUSE 

g: CLS 

i3a@ GO TO lege 

1948 PRINT “The first stage is as an amoeba ( 

A). You have to eat 5 spores ( D) while av 


214 Evolution? 


OQiding 8B and ¢." 
158 PRINT INK 6*"This is also a battle agai 


nst time, for when the clock at the top of 
the screen says @; it means that you have 
starved because you did not eat the Ss 


pores in time." 
155 PRINT °“Move about in the water with the 
cursor keys 53-8." 
169 PRINT INK 5S**“Press ENTER to start stage 
1.": PAUSE g: CLS : GO TO 195¢ 
lgg@ LET a=@: RESTORE 1919: FOR f=USR "a" TQ 
USR "d“+7: READ g: POKE f,9: NEXT f 
1918 DATA 129,132,189,178,129,153,85,51 
1928 DATA a,249,36,99,99,36,2494,a 
1939 DATA a,73,42,28,127,28,42,73 
1949 DATA a,69,66,145,133,145,66,69 
1945 GO TO 149g 
18528 LET ay=15: LET ax=14: DIM y(6): DIM x6) 
: LET at="B88CCDD" 
1955 LET t=19@: LET sc=e 
1969 FOR f=1 TO 6: LET y(f)=INT (RND¥22): LET 
x(f)=INT (RND¥32):2 PRINT BRIGHT 15AT y(¥),x 
(4)45 INK f$aS(¥)2 NEXT Ff 
lig@ PRINT AT ay,axi "A" 
1119 FOR f=! TO S STEP 2: FOR i=¥ TO fi 
1128 PRINT AT yCid,x(ids" “$ LET yCidl=INT (y¢ 
i) ¢+RND¥2-RND¥2)5 LET x(i)=INT (x (i) +RND¥3-RND 
¥3) 
1125 IF #<S THEN LET ylilsy(i)dt+ ty lil<ay)-Cy( 
T)>ay): LET xCidl=xCidt+(x(il<ax)- (xi) >ax) 
1139 IF ytidl<a OR yti)>21 THEN LET y(Ci)=Rll 
1149 IF x(i)<a OR x¢i)>31 THEN LET x¢i)=15 
115@ PRINT BRIGHT 13 INK f5AT yCi)d,xCidsasli 
) 
1155 IF ATTR (ay;ax)<>6 THEN GO TO 1299 
1157 PRINT AT ay,axs" " 
11698 LET ay=ay+(INKEYS="6" AND ay<21)-(CINKEYS 
="*7" AND ay>da) 
1170 LET ax=ax+(INKEYS="6" AND ax<31)-(INKEYS 
2"*3" AND ax?>a) 
1175 LET t=t-1: PRINT AT a,153t3" “s; IF t=a T 
HEN GO TO 129¢ 
1176 IF ATTR (ay,ax)<>7 AND ATTR (ay,;ax)<>6 T 
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HEN GO TO 1289 

1177 PRINT AT ay,ax;"A"“ 

11898 NEXT i: NEXT #3 GO TO 11989 

1298 IF ATTR {ay,ax)<69 THEN GO TO 1219 

1281 PRINT FLASH 13AT ay,ax3"A": FOR j=1 TO 
15: BEEP .@1,RND¥29: NEXT j: FOR j=5 TO 6 
1282 IF ay#y{tj) AND ax=x{j) THEN LET wh j 
1293 NEXT j? LET y(wh) @INT (RND¥22)5 LET xtwh 
Y=INT (RND¥32): PRINT INK whsAT yt{wh),x (wh); 
aé(wh) 

1295 LET se=scti: IF sc<S THEN GO TO 1177 
1298 CLS : PRINT “Well done you survived the 
first”"’ INK 6’"stage of evolution as an amoeb 
a.“: GO TO 82829 

1219 FOR ¢=#5 TO 3@ STEP 5: BEEP .@1,f: NEXT f 
+: CLS : PRINT ’*Bad luck! You failed in the 1! 
st stage of evolution.": GO TO 8962 

2899 PRINT "In this stage you have to catch f 
lies on your tongue, while avoiding the b 
irds which swoop dawn to try and capture the 
ir prey- You !* 

29198 PRINT INK 6’"Press 9 to stick your tong 

ue outé ta move left, and 7? to move right." 
» INK 5S’"You have survived this stage when 
you have consumed 19 flies without falling p 
rey to the birds."’ INK 4’ “Press ENTER to 
start.” 

2828 PAUSE 9: CLS 

28938 RESTORE 2949: FOR #=USR "a" TO USR "g"+? 
= READ g: POKE f,g9: NEXT fF 

2948 DATA 28,34,78, 79,56,32,64,48, 56,68,114,2 
92,28,49,2,12 

2958 DATA 15, 48,64, 92,88, 84, 82, 2499, 249,12,2,5 
8,26,42,74,159 

28698 DATA 9,9,9,34,85,63,2494,9 

2978 DATA 9,9,9,63,127,143,1,15,31,124, 249,19 
2,2249,255,9,9 

2190 LET x=15: LET yl) =RNDKG+13: LET x(1)=8: 
LET y(2)=8: LET x(2)=38: LET y(3)=y(2)2 LET 
x(3)sx(2)5 LET f=9 

21198 INK 5: PLOT 9,7: DRAW 255,98: INK 4 

2128 PRINT AT B,15;54;AT 19,x5" AB “SAT 29,xi" 
CD “} INK 63AT yl) yx (LIZs"E£"5SAT yt3),xt3i” 
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“3 INK SsSAT y¥(2),x(2)5 "FG" 

2122 LET y(3)=y(2): LET x(3)=x(2) 

2125 IF INKEYS="@" THEN GO SUB 2209 

213@ IF INKEY#<>"“ THEN BEEP ,9@3,1: BEEP .@ 

@3,2: BEEP .9@3,3: BEEP .9a3,4 

214@ IF ATTR (18,x+2)=5 THEN GO TO 225¢ 
215@ IF y(2)=18 THEN PRINT AT y(2),x(2)5" * 
¢ LET y(2)=8: LET x(2)=x+9: IF x(2)>3@ THEN 
LET xt2)=39 

2155 IF x(1)>29 THEN PRINT AT y(1),x(1)5" "5 
LET x(1)"@: LET y(1)=RND#¥6413 

216@ PRINT AT yl) ,xl)5" “GAT y(2),x(2)3" * 

2188 LET y(2)=y(2)4+2: LET x(2)=x(2)+4+(x(2)<x+1 
Y-(x (2) >xK41)2 LET ytl1)=y(1)+RND¥1.5-RND¥1.5: 

LEY x(1)=x(1)4+RND¥1.5: IF y(1)>2@ THEN LET y 
(1) 214 

2198 LET x=x-tINKEYS="6" AND x>@)+(INKEYS="7" 
AND x<¢28) 

2195 GO TO 2122 

2292 PLOT x¥8+12,17: DRAW 3,57 

2282 BEEP .95,-190: BEEP .@5,-6 

2284 PLOT OVER 13x¥8+12,17: DRAW OVER 159,5 

? 

2219 IF ATTR tyt1),xt1))34 THEN LET f=f+1: B 

EEP .1,-3@8: PRINT AT y(1),x(1)5" "i LET x(1)= 

@: LET yt1)=RND¥6+13 

2220 IF #=18 THEN CLS : FOR #=1@ TO @ STEP - 
1: BEEP .95,f: NEXT £3: PRINT ’'"Well done! You 
consumed 1@ fliesand can therefore evolve to 
the next stage.": GO TO Saad 

2238 RETURN 

2250 FOR f=1 TO 26: BEEP .@1,f: NEXT f#: CLS : 
PRINT ’"You have been consumed and can evol 

ve no further.": GO TO 899g 

322a INK 7: PRINT "You have now evolved to a 

beaver"' INK 6’"“In this stage you have to eat 
“? INK S’“18 fish before you are eaten by"’ I 

NK 4’ "the patrolling crab." 

3918 PRINT ’°"Move using 5-8 and try to eat 
the fish before the fresh-water crab does. Ma 
ke sure that you avoid the crab because if 
it comes into contact with you it will ea 
t you and you will -evolveno further.” 
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3426 PRINT INK 5S’“Press ENTER to start.“: PA 

USE @: CLS 

3939 RESTORE 3949: FOR #=USR “a" TO USR “g"+7 

: READ g: POKE f,9: NEXT f 

3849 DATA G,G,15,16,224,159,8,12,9,32,229, 10, 

1,254,16,24 

3959 DATA G,4,59,89,128,127,8,2494,9,9,249,8,7, 

2499,16,43 

3G6G DATA G,G,8,61,191, 255, 255, 255, 12, 38, BIN 

19111919,255,255,BIN 19111119,39,12 

3965 DATA 195,469,255,126,235,66,165,165 

38768 PRINT AT 21,983 PAPER 1; "£EEEEEEEEEEEE EEE 

EEEEEEEEEEEEEEEE" 

3988 FOR #=5 TO 29: PRINT INK 13 PAPER 1; AT 

4,29} SE SRERE ESE: = NEXT 

t 

3985 LET y=28: LET x=15:3 LET yity: LET xi=x;é 

LET #=5: LET g=8: LET fief: LET gleg 

3987 LET a®="AB": LET £fi1=8: PRINT AT G,153fi 

3@9¢ IF RND>.95 THEN PRINT BRIGHT 13 INK RN 

D¥4+3; PAPER 1;AT RND#¥15+5, RND¥29+15 "F" 

3495 IF ATTR (y,x)>64 GR ATTR (y,x+1) 264 THEN 
BEEP .1,9: LET fi=fitis PRINT AT @,15j;fi: I 

F #i=19 THEN PRINT AT y1,xis INK 15 PAPER 1i 

"mu"; INK 43 FLASH LsAT y,xjaei FOR f=! TO 30 

: BEEP .97,RND¥29: NEXT f: GO TO 325d 

3998 PRINT AT y1,xil3 INK 13 PAPER 15" "“jsAT # 

1,915" *§ INK 45AT y,xj3 adj INK 65AT £,95 "G6" 

S3i1i5 LET yi=y: LET xi=x: LET #1245 LET gi=g 

3117 IF f=y THEN IF g=x GR g=x+1 THEN FOR f 

=1 TO 29: BEEP .@1,f: NEXT £3: GO TO 33¢¢ 

3129 IF INKEYS="8" THEN LET at="A8";s LET x=x 

+(2 AND x¢29) 

S3i3@ IF INKEY@="5" THEN LET a@="CD": LET x=x 

-(2 AND x>1) 

3149 IF INKEYS="°?7" THEN IF yoS THEN LET y=y 

“1 

3152 IF INKEY#="6" THEN LET yytly¢29) 

3169 LET f3INT (f+RND¥L.S-RNDEL. St (fy) - (fy) 

): LET g=g+1 

3178 IF <5 OR £>28 THEN LET £=(2@ AND f>29) 

#(5 AND <5) 

3189 IF g=31 THEN LET g=9 
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319g GO TO 3999 

3259 CLS : PRINT *"Well done! You survived as 
a beaver and you can continue to the nex 
t stage if you wish." 

3269 GO TO 889g 

3398 CLS : PRINT *"Bad luck! You can evolve n 
o”“’ INK 6’"further because you have been"’ IN 
K S’ "destroyed by the crab.": GO TO 898g 
88999 PRINT '“Press the key which corresponds 
to what you want to do next." 

8918 PRINT INK 6’"“1,...Amoeba stage."'’"2... 
»-Frog stage."’’"3....Beaver stage."''"4....Lo 
ad stages 4&5.°’'"5....Exit from the program. 
8829 IF INKEYS=""THEN GO TO sg29g 

8939 IF INKEY#="1" THEN CLS : RUN 139 

8849 IF INKEY#="2" THEN CLS : GO TO 29980 
8959 IF INKEYS="3" THEN CLS : GO TO 3908 
8969 IF INKEY#="4" THEN LOAD "" 

88798 IF INKEY#="5" THEN STOP 

8988 GO TO 8828 
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In the second program in this suite the player is transformed into a frog 
which has to dodge from side to side avoiding capture by birds whilst 
zapping the required number of airborne flies with its tongue. There is 
no fairy princess as a reward for this one but instant promotion into the 
form ofa beaver in the third program, in which you must swim around 
and capture ten fish whilst avoiding contact with a vicious crab. 


Evolution 2 contains two programs. In the first, the player controlsa 
large gorilla which lumbers round a forest collecting bananas which drop 
randomly to the ground. The computer controls a small and extremely 
agile monkey which makes for very tough competition. 


The second program in this section puts you in control of a caveman who 
tries to kill raiders attacking his territory from surrounding caves by 
firing arrows. 


1 REM XEVOLUTION 2% 
5 BORDER @: INK 7: PAPER @: CLS 
1@ PRINT ’“If you have tried the previous 
program this will be the 4th stage in the 
evolution sequence." 
28 PRINT INK 6’"If you haven’t then the ob 
ject is to evolve as far as possible ina ro 


le-playing series of different programs. " 
38 PRINT INK S'’“In this stage you play the 
part of a gorilla who competes against 


a smaller monkey who is faster than you.” 
46 PRINT INK 4’ "You have to eat only 128 ou 
t of 48 bananas which are placed in the for 
est in random positions, but the monkey likes 
bananas as well!" 
58 PRINT ’"Press ENTER to continue.“: PAUSE 
@: CLS 
6@ PRINT *"Move with 5-8, but note that you 
Cannot go through the trees.” 
7@ PRINT INK 6’ "You pick up a banana by al 
igningthe top half of your body with the ban 
ana." 
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688 PRINT * INK 5*"Press ENTER to start.": P 
AUSE 9: BORDER 4: PAPER 4: INK @: CLS 
99 RESTORE 119 

199 FOR f=USR "a" TO USR "h"+?7!: READ g: POKE 
f,9: NEXT # 

118 DATA 64,99, 181,51,63,31,13,7,9,192, 169, 1 
92, 248,252,199, 231 

128 DATA 7,7,7,14,12,12,12, 28,227,225, 224, 11 
2,48,48,48, 56 

138 DATA 2,2,6,14, 28,56,249,9,25, 25, 255, 188, 
152,69,36,192 

148 DATA 247,195,129,1,9,128, 129,195, 231,231 
9251, 231,231,231, 231, 231 

299 FOR £=@ TQ 31: PRINT AT 9,45 INK 4; PAPE 
R 27"6";AT 26,45"6"5; PAPER 15AT L,f3"A"SAT 21 
»f3"A": NEXT ¢£ 

2198 FOR £=2 TO 18 STEP 2: PRINT INK 43 PAPE 
R 2iAT #,0;"66"GAT £,38;"G6"FAT £+1,9; PAPER 
Li"AA"GAT £41,307 "4H" NEXT ¢ 

228 RANDOMIZE 

239 FOR f=1 TO 12: LET x=RND¥27+2: LET y=RND 
¥16+22 PRINT PAPER 2; INK 45AT y,xi"G"ZAT y+ 
1,xj PAPER 13 "A": NEXT # . 

249 LET g=2: LET #=2: LET gi=g: LET f1=¢: LE 
T y=18:> LET x=28: LET yi=y: LET xi=x 

2598 LET b=4@: LET s=g 

269 LET by=INT (RND¥15+2): LET bx=INT (RND¥2 
6t+2) 
265 IF SCREENS (by,bx)<>" " THEN GO TO 2469 
2798 PRINT INK 63 AT by, bx53"£" 
289 PRINT INK 7IAT B,3ib;AT OB, 2835 
38 PRINT AT yl,xli" "GAT yitt,xli" "FAT y 
XP"AB"GTAT yl, xi"CD"GAT Fi, 915" "FAT #595 "F" 
INK 63AT by,bxj"f£" 
$28 IF y=by THEN IF x=bx OR x+1=bx THEN GO 
SUB 65¢ 
S30 IF #=by THEN IF g=bx THEN LET b=b-1: P 
RINT AT 9,3; INK 7ibi" "; BEEP »i,-19: GO SUB 
655 

S35 LET yl=y: LET xil=x 

3498 LET f#l=f: LET gizxg 

359 LET y=y+(INKEY#="6" AND y<18)- (INKEY#="7 
*" AND y>2)2 LET x=x+(INKEY$="8" AND x<28)-(IN 
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KEY#="5" AND x2) 

369 IF ATTR (y,x)<23 GR ATTR (yt+1,xI<23 GR A 
TTR (y,xt1)<23 OR ATTR (yt+i,x+1)<23 THEN LET 

yeyl: LET x=xl 

3EG LET f=#+(f<by)-(f>by): LET g=gt+{g<bx)-(g 
bx) 

398 IF ATTR (4,9)<23 THEN LET f=INT (#1+RND 
¥1.S5-RND¥1.5)3 LET g=INT (gi+RND¥1.5-RND#1.5) 
: GO TO 399 

59g GO TO 392d 

65@ LET s=sti: LET b=b-1: PRINT INK 7iAT 9, 
3ibs" "GAT BG, 2835 

652 BEEP .1,19 

655 IF s=1g9 THEN GO TO 899 

657 IF be@ THEN GO TO 799 

668 LET by=INT (RND¥15+2): LET bx=INT (RND¥2 
6+2) 

665 IF SCREENS (by,bx)<>" " THEN GO TO 469 

678 PRINT INK 63AT by,bxj"f" 

689 RETURN 

798 BORDER @: PAPER @: INK 7: CLS 

71g PRINT *“Bad luck! You are not fast 
enough to progress any further in evolution. 
a 

768 GO To 1819 

899 BORDER @: INK 7: PAPER @: CLS ; PRINT ’*" 


Well done! You managed to eat the bananas 6 
efore you starved and therefore you can proc 
eed to the next stage." 


99g GO TO 181¢8 

1998 PRINT ’ "The object here is to stop other 
cavemen from attacking your cave"’ INK 5’ "You 
r cave is in the middle of 8 others, and from 


any of these Can come rivals who are prepa 
redto kill you in order to steal your prope 
rty." 


1919 PRINT INK 5’"You can spin round with 6 

and 7 and throw a spear with @. You have su 

ccessfully defended your cave when 39 attacks 
have been made. However, you are given 3 1 
ives to make your task easier." 

1926 PRINT INK 4’"Press ENTER to start." 
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1839 PAUSE @: CLS 

1949 RESTORE 195¢@: FOR #=USR "a" TO USR "“i"+7 

: READ g: POKE #,9: NEXT # 

12592 DATA 8, 28,8,8,8,8,8,8,9,46,6,8,16,32,44,9 

99,9,2,255,2,9,9,9,9,64,32,14,8,6,6,9 

1969 DATA &,8,8,8,8, 8, 28,8,9,2,4,8,16,96,96,9 

99,9,69,255,64,9,8,9,9,946,96,16,8,4,2,9 

19798 DATA 28, 28,8,62,8, 28, 28,24 

1975 FOR #=1 TO 6: READ s,c: PRINT AT s,c3 IN 

K RNDE5+23;" "AT sti,cs3" "i NEXT £: PRINT 
INK RND¥S+2;AT 9,9)" "jTAB 383" "SAT 11,9 

p" # TABS Soi". * 

1877 DATA 1,5,1,14,1,23, 28,3, 29, 25, 29, 14 

19879 PRINT INK 43AT 8,143" "SAT 9,135 ° 
"$AT 11,133" “SAT 12,143" 

1988 LET q=1 

1985 PRINT AT @,9;"LIVES: 77" 

1999 LET at="ABCDEFGH": LET a=1: LET s=S: LET 

c=3 

1991 LET k=9g 

1992 PRINT AT 9,21; "ATTEMPTS: "sc: IF c=39 THE 

N GO TO 178g 

1995 GO SUB (INT (RND¥8)¥19)+149¢ 

1199 PRINT AT 19,153 INK 43a%(a) 

1119 PRINT AT y,xi" "i LET y=ytdy: LET x=x+dx 

: PRINT AT y,xj INK S3"7" 

1115 IF y=19 THEN IF x#15 THEN GO TO 14699 

1128 IF s THEN PRINT AT #,95" "3 LET f=#+dy2 

: LET g=g+dx2: PRINT AT 4,93 INK 33b% 

1139 IF s THEN IF (#=y AND x=g) OR (Ff+dy2=y 

AND g+dx2=x) THEN PRINT AT #,95" "3 FOR w=? 

TO @ STEP -1: PRINT INK wyAT y¥sxX3 "7": BEEP 

92,4: NEXT w: LET s=@: LET c=ct+1: GO To 1992 

1149 BEEP 1/(c+2@), (y+x)/2 

1299 LET a=at(INKEY#="7" AND a<8)-(7 AND INKE 

YS="7" AND a=8)~-(INKEYS="6" AND ad1)+(7 AND I 

NKEY$="6" AND a=1) 

1219 IF INKEYS="9" THEN IF s=@ THEN LET b= 

a@(a)i LET f=19: LET g=15: LET s=1: Go SUB 15 

ldtakig 

i398 GO TO liga 

1499 LET y=q: LET x=6: LET dy=q: LET dx=q: RE 

TURN 
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1418 LET y=q: LET x=15: LET dy=q: LET dx=@: R 

ETURN 

1428 LET y=q: LET x=24: LET dy=q: LET dx=-qi 

RETURN 

143@ LET y=198: LET x=31: LET dy=@: LET dx=-q: 
RETURN 

1449 LET y=21: LET x=26: LET dy=-q: LET dx=-q 
: RETURN 

1459 LET y=21: LET x=15: LET dy=-qi LET dx=@: 
RETURN 

1468 LET y=21: LET x=4: LET dy=-q: LET dx=q: 

RETURN 

147@ LET y=19: LET x=@: LET dy=@: LET dx=q: R 
ETURN 

152@ LET dy2=-1: LET dx2=9: RETURN 

1538 LET dy2=-1: LET dx2=+1: RETURN 

154@ LET dy2=@: LET dx2=1: RETURN 

155@ LET dy2=i1: LET dx2=1: RETURN 

156@ LET dy2=1: LET dx2=@: RETURN 

157@ LET dy2=1: LET dx2=-1: RETURN 

158@ LET dy2=@: LET dx2=-1: RETURN 

1598 LET dy2=-1: LET dx2=-1: RETURN 

16928 PRINT AT £,93" "3 FLASH 15AT y,xj5"Z"s FO 
R #=1 TO 26: BEEP .@1,f: BEEP .@1,19-4: NEXT 
#2 PRINT AT y,xjaS(a): LET k=k+1: PRINT AT 2, 
kt+ay" * 

1685 IF k=3 THEN GO TO 1899 

1497 LET s=d 

14618 GO TO 19892 

1788 CLS : PRINT "Well done! Defending your c 
ave was not easy, but you did very well and 
you can evolve further if you wish to." 

1719 GO TO 1819 

1899 CLS : PRINT "Bad luck! You failed in you 
r attempt to defend your cave.” 

1818 PRINT INK 4’°"Press the key which corres 

ponds to what you want to do next.” 

182@ PRINT INK 5’"1...Start the gorilla stag 

e.*'?"2,,.Start the caveman stage.“’*"3...lLoa 
d the 6th stage."’"'"4...Exit from the program 


1839 IF INKEYS="" THEN GO TO 1839 
1849 IF INKEYS="1" THEN CLS : GO TO 38 
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1859 IF INKEY#="2" THEN CLS : GO TO 1999 
1869 IF INKEYS="3" THEN LOAD "4 

1879 IF INKEY$="4" THEN STOP 

188g GO TO 1832 
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Evolution 3 is the logical culmination of survival conditioning. As the 
leader of the superpower of your choice you must destroy your enemy’s 
capitals with cruise missiles before you are destroyed by one of their 
ICBM’s. To do this you have a very short time to pre-program the flight 
of your missile with a series of direction codes as the enemy’s missile 
moves towards your capital. The screen features a map of the world on 
which the missile courses are plotted. 


1 BORDER @: PAPER @: INK 7: CLS 
3 POKE 23658,1¢ 
5S REM @ P.Stanley 

19 DATA 9,8,28,8,8,62,9,89,9,32, 36,62, 36,32, 
B9,0,08,62,8,8,28,8,9,9,98,2,18,62,18,2,9,9 

15 DATA 128,128,128,128,128,128,128,255,122 
3126,128,156,156, 128,128, 255 

1? DATA 127,127,127,127,127,127,127,¢ 

209 FOR y=USR “a” TO USR "g"+?i READ x: POKE 

y,xt NEXT y 

38 DATA "LONDON" ,8,13, "MOSCOW" ,5, 24, "BONN", 
7,17, "WASHINGTON" ,@8,3, "BRASILIA" ,17,4, "TOKYO" 
37,28, "RIYADH", 12,17, "CANBERRA" ,13, 29, "PEKING 
",9,25, "PRETORIA" ,17,14 

649 PRINT "This is the 3rd and final Ss 
ection in the series of evalutian prag 
rams." INK S’"“This one involves a nuclear wa 
r,where you can play the part of P.M. of any 

of 16 superpowers which may exist in 20992 
(the year in which this war takes place 
»." 

76 PRINT INK 6’ "The object is to program c 
ruise missiles to home in aon the enemies 
* capitals.” 

88 PRINT INVERSE t’"Press any key to read 
more.": PAUSE @: CLS 

92 PRINT "In 2862 the World is not very d 
ifferent from the previous 20 years, apart f 
rom new superpowerforces exist. South America 

has been Over-run by Brazil and its capital 
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is Brasilia.“’ INK S’ "Japan has become a powe 
rful nation, and the Arabs have a figh 
ting nation based around Riyadh. Also Aust 
ralia & South Africa are Superpowers. " 

9S INPUT "Enter a skill level (38-189). 3 
@ois the hardest: "ssk 


97 IF sk<39G OR skoigg THEN GO TO 95 

1@8 PRINT °"In which capital do you want to 
be P.M. ? (You only need to typethe first 2c 
haracters.)" 

161 RANDOMIZE 

1igS LET f=" * 

1i@ PRINT : FOR f=1 TO 198: READ aS,y,x: PRIN 
T aS,: NEXT fF 

129 INPUT as: IF LEN at<2 THEN GO TO 128 

139 RESTORE 39: FOR f=1 TO 19: READ bS,y,x: 
IF bs(l TO 2)<>ae(l1 TO 2) THEN NEXT Ff 

135 IF be (il TO 2)<oas(l TO 2) THEN GO TO 12 
a 

136 LET vey: LET u=x: LET e@="A":i LET f#(f)= 
4g 

137 RESTORE 39 

138 LET i=INT (RND¥1@G) +1: IF £%(i1)<>"K" THEN 

FOR f=1 TO i: READ bS%,y2,x2: NEXT £: GO TO 

14¢ ‘ 
139 GO TO 138 

140 LET sc=1: CLS : PRINT “The way you progr 
am your missileéis by compass directions (ie n 
»5,wWw and e). The world map is divided int 
Q squares, and each step of the program move 
s the missile 1 Square.” 

4145 LET €8(i)="X" 

1598 PRINT INK S’ "For example "“"nnees“" move 


s the missile 2 squares up, 2 right and 1 
down. "? INK 6’"If the missile goes off the 
screen at any side it will appear on 


the opposite side." 
151 PRINT INK 4’ "The red square is your tar 


get" 
155 PRINT *"You must enter your program as 
quickly as possible . When it isready press F 


to launch a nuke." 
169 PAPER @: INK 5S: PRINT AT 21,93 "Press a k 
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ey to begin": PAUSE @: CLS : GO SUB 9999 

178 PRINT AT y2,x25 INK 23 FLASH 15 "M"53 INK 
6; INK @) PAPER SiAT y,yxi"F"i LET yl=y2: LET 
xi=x2: LET d$="A" 

175 DIM c$(50): LET c=1 

168 LET c#=""3 PRINT INK 7;AT 21,6; "Enter p 
rogram after the tone." 

185 FOR f=1 TO 158: NEXT f: PRINT AT 21,55" 

"; BEEP .1,19 

19@ LET C1i=C 

195 FOR f=1 TO ski IF INKEY$S="" THEN NEXT 
208 IF INKEYS="N" THEN LET c#(c)="N"i LET ¢ 
=cr+l 

216 IF INKEYS="S" THEN LET c#(c)="S"i LET c 
Scr+l 

228 IF INKEYS="W" THEN LET c&(c)="W": LET c 
Scr+l 

238 IF INKEYS#="E" THEN LET cS#(c)="E"i LET c 


+ 


=Hctl 
235 IF INKEY#="F" GR c=5i THEN PRINT AT 21, 
Oi" "; BEEP .1 


,20: GO TA 626 

248 IF cl=c THEN GQ SUB 3598: GO TO 199 

250 PRINT INK RND¥4+3;AT 21, (c-1 AND c<35)+ 
(c-33 AND co=33) jcH8(c-1) 

255 IF c=32 THEN PRINT AT 21,9;" 

269 BEEP .1,¥8 

278 GO TO 199 

596 PRINT AT y1l,xis OVER 1s d%j} OVER SjAT y2, 
x23 INK 23 "8" 

519 IF yi<y THEN LET yl=yi+i: LET ds="¢" 
526 IF yl>y THEN LET yil=yl-i1: LET ds="4" 
5309 IF xil<=x THEN LET xil=xi+i: LET d$="8" 
S4@ IF xi>x THEN LET xi=x1i-1: LET d$="D" 
550 PRINT INK 33 FLASH 13 BRIGHT 15AT y1, xi 
QVER ij; ds 
S555 IF yi=y THEN IF xi=x THEN GO TO 99¢ 
557 BEEP .@46,25: BEEP .@6,2?7 

560 RETURN 

699 LET c=l 

682 PRINT AT v,uj3; OVER Ljes 

6a5 FOR f=1 TO 3: PRINT AT y,xi INK 6§ FLASH 
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13 PAPER 93 "F"5 FLASH S3AT v,yus INK 53 OVER 


ljes 
6198 LET veve1(cS(cd="S")-(c#(cd="N") 2 LET u=u 
+(CH(CPH"E")-(cHB(c)="W") 


615 LET es=""; LET et=eG+("C" AND c#(c)="S") 
+¢"A" AND cB(c)="N")+0"R" AND c#(co)="E"%) +¢"D" 
AND c#(c)="W") 

628 IF v=e-i THEN LET v=29g 

638 IF v=2i THEN LET v=@ 

649 IF u=-i THEN LET u=31 

658 IF u#¥32 THEN LET u=d 

668 IF v=y2 THEN IF u=x2 THEN GO TO 2899 
670 PRINT OVER 13 INK 73 BRIGHT 1;5AT v,uses 
671 LET cecti: IF c<51 THEN IF c#(ce)<>"N" A 
ND c#(c)<>"*W" AND c#(c)<>"E" AND cHl(c)<>"S" T 
HEN LET c#i: GO TO 822 

472 IF c=51 THEN GO TO 89g 

675 FOR i=28 TO 3G: BEEP .9@1,i: NEXT i 

688 NEXT F£ 

499 GO SUB 528g 

728 GO TO 495 

89¢G PRINT OVER 1;5AT v,uje@ 

81@ LET c=#i: LET vey: LET u=x 

832 GO TO 189 

946 PRINT INK 7;AT 21,93"You have been dest 
royed": FOR f=1 TO 28: PRINT AT y,x; INK RND¥ 
6+i; "MH": BEEP .95,f#¥3: NEXT £3 INPUT “Want an 
other go? (Y/N) "fF 

925 PRINT AT 21,9;" 

” 

926 GO SUB 999g 

997 LET sc=1 

91g IF ##(1)="N" THEN STOP 

915 INPUT AT 9,@;"Enter a skill level (39-19 
), 38 is the hardest: "“js5k 

917 IF sk<3@ OR sk>1g@@ THEN GO TO 915 

928 INPUT AT 9,9;"Want to see the names?"j3f% 
> IF £#¢(1)="N" THEN GO TO 95g 

932 RESTORE 39: FOR f=1 TO 19: BEEP .95,-29: 
READ f%,y,x: PRINT INK RND¥3+4;AT 21,95 £5; " 

"s FOR y=1 TO 78: NEXT y: NEXT fF 
93508 LET f=" . 
9469 INPUT AT 6,83; "Which capital?"jae: IF LEN 
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a&<2 THEN GO TO 969 
97 RESTORE 30: FOR f=1 TO 19: READ b#,y,x: 
IF bS(1 TQ 2)<>as(1 TO 2) THEN NEXT #: GO Ta 


94S 
975 LET f#(f)="XK" 
969 LET cHi:i LET c="" LET vey: LET u=x 


999 LET i=INT (RNDK19)+1: IF ¢$(i)<>"X" THEN 
RESTORE 38: FOR f=1 TQ i: READ b%,y2,x2: NE 

XT £: LET ##(i)="xX": GO TO 17¢ 

1gg@ GO Ta 999 

2999 IF sc=9 THEN LET i=5: GO Ta 2@15 

2618 LET i=INT (RND¥19)+1: IF ¢$(i)="X" THEN 
Ga Ta 2916 

2015 LET scssct+ti: LET ##(i)="X": PRINT INK 7 
SAT 21,93b%3" has been destroyed": FOR f=1 Ta 
4: FOR s=7 TQ @ STEP -1: PRINT AT y2,x23 INK 
Sj "M@"s BEEP .93,5¥7: NEXT si: NEXT ¢ 

2616 IF sc=1@ THEN GQ TO 4966 

2817 PRINT AT y1,x13 QVER 13d% 

2628 PRINT INVERSE 15AT y2,x23"£": LET c=1: 
LET c#="“: LET vey: LET u=x: RESTORE 39: FOR 

#=1 TQ i: READ b%,y2,x2!: NEXT #: PRINT FLASH 
13AT y2,x23} INK 23 "HM": LET yl=y2: LET x1=x2 

2925 PRINT AT 21,3135" " 

293g GO Ta 18d 

4888 PRINT INVERSE 13AT y2,x23"£": PRINT AT 

21,95" ‘ 

4085 INK 2: FLASH 1: BRIGHT 1: GO SUB 990g: I 

NK 5: FLASH @: BRIGHT @: PRINT AT 9,93 "CONGRA 

TULATIONS - YOU NOW RULE THE WHOLE WORLD (WE 

LL WHAT'S LEFT AFTER YOUR NUKES’ WORK!) 

4919 FOR #=1 TQ 3: FOR 9#12 TQ 26 STEP 2: BEE 

P .87,9: NEXT g: FOR g=18 Ta 19 STEP -2: BEEP 
-87,9! NEXT gt: NEXT ¢ 

4929 PRINT " P 

RESS Y TO TRY AGAIN, ELSE N...." 

4925 IF INKEY#="" THEN GO TQ 4925 

4938 IF INKEYS="Y" THEN GO SUB 9998: PRINT A 
T 21,95°* ": GO 
Ta 915 

4949 sTaP 

989@ PRINT AT 8,93 "ELELEEEGGGGGELELE EEL EGGGEGE 
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LEEEEEEEELEEEGGGGGEELEEEEGGGGGGEGGGEELEEEELEEE 
GG6GLELE EES GGEGEGEGGESGEGEGGEGELELEGEE LE EGGGGGG 
GG6GGGGEGGGGGG6EEGEEEEELEGEE EE GGGGGGGGGGGGGELEG 
GEESELEEEEEEEELEGCGGSEGGGGGGGGEEE" 

9BiID PRINT "“GGGGGGLEELLEEEEGGGGGGGGEGGGGGEEEG 
GE66SGEEEEEE BLEGGGSEEGSGGGGGGGLEGGGGEELEELELELEG 
£GGGGGGEGGGGGLELEEGGGEELEEE EEE EEGGGGGGGGGGGG6 
LG6LEEEGEGEEEE LE LEEGGGGGGGGGGGGGGGEGELEGEGELEEE 
LEEEGGESEGGSGGGLEEEEELEEEGELEEEEELEEE ELGGELEE 
GLEGELEGELESGGEEE EEE EE EGGGEGEGEEEGEEEEGEEGEEL" 
9829 PRINT "£GGGGEEELLSGSEGEGGEGELLLLE LEE E EEE EEE 
EGGGGEEELESSEEGGLEELELELEEEGEGEELEEGGGGGEEE EE EEG 
GOGEEEEEEESGEEGEGEELEGEGGEE LE LE EGGGEGEEEEEGGGE 
GE66LEEEGGEEEEEEEEGEGEEEE EE EEGSSGGGGEEEEESGGEEE 
LEEEEEGEEEEEEEEEGELEEGGEELE EEGEEEEEEEEEEEEEEEEE 
LEEEEEEEEEE" 

9939 PLOT 255,8: DRAW 9,167: DRAW -255,¢ 

9949 RESTORE 30: FOR f=1 TO 14: READ a%,b,a: 
PRINT AT b,aj"F": NEXT £3 RETURN 
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Exocet 


It’s time to play the Falklands all over again. A group of enemy ships 
randomly make their way across the horizon, and it’s up to you to sink as 
many of them as possible by firing missiles using the zero key. A mobile 
sight is printed slightly below the line of the horizon. There are three 
sizes of enemy ships, and the smaller the target the more points you score 
for ahit. Occasionally the enemy’s electronic defence system will succeed 
in confusing your missile and deflecting it from its course. 


1 REM Exocet @ Robert Erskine 1983 
5S GO SUB 998¢g 
ig GO SUB 49989g 
15 GO SUB tgs 
29 GO SUB 117¢ 
38 LET hs=d 
49 RANDOMIZE 
Sd INK @ 
19a FOR x=! TO (LEN $S%-32) 
119 IF LEN S#(x TO LEN S%$)>31 THEN PRINT I 
NK @; PAPER Sj;AT 19,0;S8(x TO x+t+31) 
115 PRINT PAPER 13 INK ?7;AT LIN,COL;" " 
128 IF INKEYS="z" AND FLAG=8 AND COL>@ THEN 
LET COL=COL-1: LET T=T-8 
1398 IF INKEYS="x" AND FLAG=8@ AND COL<26 THEN 
LET COL=COL+1i: LET T=T+8 
134 PRINT PAPER 13 INK ?75AT LIN, COL; "+" 
135 IF FLAG=1 THEN GO TO 179 
149 IF INKEYS<>"@" THEN GO TO 299 
15@ LET L=a: LET D=i1: LET FLAG=1: LET Y=127 
16@ LET EX=EXx-1 
179 PLOT INK 15 OVER 1i3;Y,L 
172 LET LL=L: LET YY=Y 
175 BEEP .93,9 
176 IF L>=112 THEN LET D=¢ 
17? IF RND>.& THEN GO TO 192 
189 LET L=L+(8 AND D=1)-(8 AND D=0@) 
182 LET Y=Y+(ABS (Y-T)/2 AND TY) -(ABS (Y-T) 
7/2 AND T<¥) 
199 PLOT OVER 1;YY,LL 
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195 IF L<=95 AND D=98 THEN GO SUB 46992 

2990 IF FLAG=9 THEN PAUSE 5 

292 IF EX<g THEN GO TO 3999 

295 NEXT x 

219 GO TO 3999 

1999 PAPER 1: CLS : LET LIN=11: LET COL=15: L 
ET T=123: LET FLAG=9: LET EX=19 

1199 FOR x=9 TO 19 

1129 FOR y=9 TO 31 

1139 PRINT PAPER Ss; INK 15AT x,y3" " 

1149 NEXT y 

1159 NEXT x 

11690 RETURN 

1176 DIM G#(19,6) 

11869 LET GS(1)="A . 

1199 LET GS(2)="28c " 

1298 LET G#(3)="DEF = 

1218 FOR x=4 To 19g 

1229 LET G&(x)=" u 

1239 NEXT x 

1235 LET Qgs=" 

“; LET S#=aQs 

1249 FOR x=1 TO 199 

1259 LET SS$=SS+GS(INT (RND¥19) +1) 

1269 NEXT x 

1279 LET sc=9: LET S#=SS+QS% 

1289 RETURN 
3999 PAPER 9: INK 5S: CLS : PRINT AT 19,63 "You 
r score was "js5c 

3918 LET sc=9: LET Ex=19 

3929 PRINT AT 29,3; "Press any key to restart" 
3925 INK @ 

3939 IF INKEYS="""THEN GO TO 383¢ 

3949 GO SUB lesg 

3945 GO SUB 1179 
3959 GO TO 1989 
498939 BORDER 9: INK 5: PAPER @: CLS : PRINT AT 
1,123 “EXxOCET" 
4919 PRINT : 
4929 PRINT "The object of this game is to "," 
Sink the enemy ships with Exocetmissiles as t 
hey cross the ", "horizon" 
4930 PRINT 
49939 PRINT " Z = move sight left": PRINT 
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48598 PRINT * x = move sight right": PRINT 
$669 PRINT " @ = fire missile": PRINT 
4370 PRINT “* hit on D&F scores 198": PRINT 
49898 PRINT " hit on &8¢C scores 204": PRINT 
4985 PRINT * hit on A scores 39" 


49990 PRINT AT 21,4; "Press any key to start" 
4299 IF INKEYS="" THEN GO TO 42898 

4219 RETURN 

69g IF POINT (Y,88)=8 THEN GO TO 684¢ 

4919 IF S#(x+COL)="A" THEN LET sc#sct+3g 
4928 IF S#(x+COL TO x+(COL+1))="BC" OR SH( xt ( 
COL-1) TO x+COL)="8C" THEN LET sc=sct+2g 

6825 IF S#(x+COL TO x+(COL+2))="D£F" OR S#(xt 
(COL-1) TO x+(COL+1))="DEF" OR SB(x+(COL-2) T 
O x+COL)="D£F" THEN LET sc=sct+igs 

6938 RESTORE 6939 

6931 FOR z=1 TO 15: BEEP .93,-2¢ 

6932 PLOT Y,L: READ YY: READ LL: DRAW INK 23 
YY, LL 

6833 NEXT z 

6939 DATA -4,4,-4,5,-3,6,-3,7,-2,8,-2,9,-1,198 
39,11,1,19,2,9,2,8,3,7,;5,;6,4,5,;4,4 

6459 LET S#=SH(1 TO x-1)+S%(x TO (x+(COL-3))) 
+3 “456((x+(COL+3)) TO LEN SS) 

6869 LET FLAG=9 

6885 PRINT PAPER SjAT LIN-2,COL3" "SAT LIN-1 
»;COLj"” “ 

41198 IF sc>hs THEN LET hs=sc 

6126 PRINT PAPER 5; INK S5AT 9,983 "SCORE: "j5c 
5" EXOS:";EX;" HIGH SCORE: "Shs 

613d RETURN 

99g9 RESTORE 9998: FOR u=USR "a" TO USR "“a"t+4 
? 

Sigs READ g 
9929 POKE u 
O38 NEXT u 
9845 DATA & 
7959 DATA & 
0,255,254 
9968 DATA 9,9,8,8,1,255, 127,463,9,24,68,63,255 
»255,255,255,8,9,9,9,192,255, 254,252 

93798 RETURN 


78,164,255 
,39,255,127,9,8,8,8,128,23 


~ 8 


234 


Energy Field 


You are at the edge of Time, closely pursued by a fleet of alien craft who 
are out to steal your ship’s power. However you havea trick or two up 
your sleeve. You have the capacity to guard the ends of the time tunnel 
by setting up energy fields at each of the four open ends of the system. If 
you attempt to set up a force field anywhere other than at the ends of the 
time tunnel, the force will feedback and destroy you. Likewise, if you set 
up a field at the end of an unoccupied tunnel you are finished. Passive 
cruiser commanders who allow too many aliens through will find their 
power drained and the game over. 


1 BORDER @: PAPER @: INK 7: CLS 
2 REM @ PAUL STANLEY 

5 GO SUB 9899 

7 GO SUB 9849 

8 LET h=@ 

@ GO SUB 8899 
@ GO SUB 9996 

5 PRINT AT @,28sh 
@ OVER 1 

35 PRINT INK 33AT y,x3 "AZ" 

39 IF li<=1 THEN GO TO 7999 

49 LET p=p-.@5: PRINT OVER @3AT 9,835: LET 
g=1: GO TO (INT (RND¥4) +1) ¥192 

68 FOR d=1 TO p: PRINT INK 23AT y,xE "Al" 
65 IF INKEY#="1" THEN LET x=x+1!: LET y=y-1 
7@ IF INKEYS="2" THEN LET x=xtii LET y=y+1 
75 IF y=-1 THEN LET y=21 

@g IF y=22 THEN LET y=1 

63 IF x=-1 THEN LET x=31 

87 IF x=31 THEN LET x= 

98 PRINT INK 33AT y,x3 "AZ" 

92 IF INKEY#="@" THEN IF g THEN GO SUB 19 


93 NEXT d 

95 RETURN 

1988 LET o=s: FOR f=1 TO 4 

195 LET a=1 

119 PRINT AT 19+2%f,155 INK Ssatlf) 
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115 GO SUB 49 

124 BEEP .@4,f¢ 

139 PRINT AT 19+2%f,15;a8(#)5AT 114+2%4,153 I 
NK Sjas(#) 

135 GO SUB 4g 

149 BEEP .24,f 

158 PRINT AT 11+2%f,15;a8(F) 

168 NEXT ¢f 

165 IF s<>o THEN PRINT FLASH 1;AT 114+2%f,1 
5; INK 6;"7": BEEP .1,-38: BEEP .1,-28: BEEP 
.1,°26: BEEP .1,-28: BEEP .1,-38: PRINT AT 11 
+2%4,15; INK 73 "7" 

167 IF s=o THEN LET 1li=li-.2: PRINT AT 21,2 
73) OVER S}INT lis" " 

178 GO TO 39 

288 LET o=s: FOR #=1 TO 4 

285 LET a=2 

219 PRINT AT 11-2¥f,16; INK 3jas(f) 

215 GO SUB 49 

220 BEEP .984,f 

238 PRINT AT 11-2¥4, 16; aS(F) FAT 19-2¥4,165 I 
NK 3yas(f) 

235 GO SUB 6g 

249 BEEP .94,f 

258 PRINT AT 19-2%4,16ja8(F) 

268 NEXT f 

265 IF s<>o THEN PRINT FLASH 1;AT 18-2%f,1 
6; INK 6)"J7": BEEP .1,-38: BEEP .1,-28: BEEP 
.1,-26: BEEP .1,-28: BEEP .1,-38: PRINT AT 18 
-2%4,146% INK 77 "7" 

267 IF s=a THEN LET 1Li=li-.2: PRINT AT 21,2 
23 OVER @;INT lis" “ 

278 GO TO 39 

398 LET o=s: FOR #=1 To 5 

395 LET a=3 

3ig PRINT AT 19,15-2%43; INK 45b¢(#) 

315 GO SUB 49 

328 BEEP .94,4*6 

338 PRINT AT 19, 15-2kf;bS(F)5AT 18,14-2e45 I 
NK 4;b%(#) 

335 GO SUB 69 

348 BEEP .84,x*6 

358 PRINT AT 19,14-2%43;be(F) 

368 NEXT fF 
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365 IF s<>o THEN PRINT FLASH 14AT 18,14-2% 
f; INK 6;"J": BEEP .1,-38: BEEP .1,-28: BEEP 
.1,-26; BEEP .1,-28: BEEP .1,-39: PRINT AT 12 
,14-2%f3 INK 73 "7" 

367 IF s=o THEN LET li=li-.2! PRINT AT 21,2 
73 OVER @}INT lis" * 

378 GO TO 39 

499 LET o=s: FOR f=1 TO 5 

495 LET a=4 

419 PRINT AT 11,16+2#f3 INK 67b%(4) 

$15 GO SUB 69 

428 BEEP .94,f%*6 

438 PRINT AT 11,16+2#f3bS(4)5AT 11,17+2%43 I 
NK 6$bS(#) 

435 GO SUB 69 

449 BEEP .84,4*6 

458 PRINT AT 11,17+2%¢}b¢(F) 

46@ NEXT ¢ 

465 IF s<>o THEN PRINT FLASH 15AT 11,17+2% 
4; INK 6;"J": BEEP .1,-3@: BEEP .1,-28: BEEP 
-1,-26: BEEP .1,-26: BEEP .1,-3@: PRINT AT 11 
,i7+t2et5) INK 73 "7" 

467 IF s=0 THEN LET li=li-.2: PRINT AT 21,2 
7; OVER @;INT lis" * 

478 GO TO 39 

1998 IF x<é THEN GO TO 1199 

191@ IF x>? AND x<22 THEN GO TO 1298 

192 IF NOT x>24 THEN GO TO 2999 

1938 IF x>29 OR y<2 OR y>19 THEN GO To 298g 
1940 FOR q=2 TO 19: PRINT PAPER 3)AT g,275" 

“: NEXT q 

1959 BEEP .@3,-10: BEEP .93,-13: BEEP .@3,~-15 
: BEEP .@3,-19 

196@ FOR g=2 TO 19: PRINT PAPER @3AT q,273" 

": NEXT q 

1965 IF a¢>4 THEN GO TO 298@ 

1970 LET s=s+29 

1988 LET g=g 

1998 RETURN 

1198 IF x<1 OR y<2 OR y>19 THEN GO TO 299g 
1118 FOR q=2 TO 19: PRINT PAPER 33AT q,23" 
": NEXT q 

1120 BEEP .93,-19: BEEP .@3,-13: BEEP .93,-15 
3 BEEP .93,-19 
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1139 FOR g=2 TO 19: PRINT PAPER SAT q,23" 
“: NEXT q 

1135 IF a<>3 THEN GO TO 2999 

1149 LET s=s+29 

1159 LET g=9 

116@ RETURN 

1299 IF y>18 THEN GO TO 1399 

1219 IF y<1 OR y>3 THEN GO TO 2999 

1229 FOR q=11 TO 28: PRINT PAPER 3;AT 1,q3° 
“SAT 2,qQ3" "SAT 3,q3" "i NEXT q 

1239 BEEP .93,-19: BEEP .93,-13: BEEP .93,-15 

: BEEP .93,-19 

1249 FOR g=11 TO 20: PRINT PAPER S;AT 1,q3" 

“;AT 2,q3" “SAT 3,q3" "i NEXT q 

1245 IF a¢>2 THEN GO TO 2999 

1258 LET s=s+2g 

1269 LET g=9 

1278 RETURN 

1399 IF y>29 OR y<18 THEN GO TO 2999 

1319 FOR q=11 TO 28: PRINT PAPER 3;AT 18,qQ5" 
“;AT 19,q3" "ZAT 28,q3" “: NEXT q 

1329 BEEP .93,-19: BEEP .93,-13: BEEP .93,-15 
: BEEP .93,-192 

1339 FOR g=11 TO 28: PRINT PAPER SjAT 18,q3" 
“SAT 19,q3" "SAT 28,q3" "3 NEXT q 

1335 IF a<>1 THEN GO TO 2999 

1348 LET s=s+29 

1358 LET g=2 

1368 RETURN 

2089 PRINT AT y,x3 "Al" 

2819 FOR r=y TO 21 

2920 PRINT AT r,x-13 INK 33 "JJ" 

2938 BEEP .981,r 

2949 PRINT AT r,x-13"J77" 

2959 NEXT r 

2069 LET li=li-1: PRINT OVER @;AT 21,27; INT 

lig" “! IF li<=1 THEN GO TO 7999 

2865 PRINT AT y,x3 "AI" 

2978 RETURN 

7996 FOR #=1 TO 68: PRINT OVER S3AT 19,8; IN 

K 4/9} INVERSE 1;"G AME OVER": BEEP .99 

1,4: NEXT ¢ 

79985 IF s>h THEN LET hes 

7199 PRINT OVER S;AT 21,2; INVERSE 1; "PRESS 
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ANY KEY TO PLAY AGAIN" 

7298 IF INKEYS<>"" THEN RESTORE : CLS : GVER 
1: GO TO 18 

7398 GO TO 7289 

8999 FOR #=USR "a" TO USR "j "+7 

6919 READ x: POKE #,x: NEXT ¢ 

8929 DATA 49,BIN 91919199,BIN 19111919,124, BI 

N 18111919,BIN @1919199,42,9 

89309 DATA G,16,48,BIN 91919199,49,16,9,9 
8849 DATA G,9,9,24,24,9,5,G 

8858 DATA G,4,8,16,8,9,8,o 

8868 DATA 255,195, 189,189,189, 189,195,255 
8878 DATA G,62,54,492,54,62,5,9 

B88 DATA B,G,28,28,28,9,8,8 

BG9B DATA 96,248, 249, 239, 249, 245, 96,8 

8199 DATA 6,15,159, 247,159,15,6,9 

8118 DATA BIN 11911919,33,76,195,24,BIN S11989 
191,BIN 19819911,BIN 91199199 

8259 LET x=1: LET y=1 

@38@ LET at="DCBA" 

@350 LET be="DCGFE" 

8499 LET s=9 

8419 LET 1i=8: LET p=5 

8598 RETURN 

992% QVER @: PLOT 126,93: DRAW 4,9: DRAW @,-4 
: DRAW 4,8: DRAW @,-4!: DRAW -4,9: DRAW 9,-4: 
DRAW -4,9: DRAW 9,4: DRAW -4,9: DRAW 9,4: DRA 

W 4,8: DRAW @,4 

9918 DRAW -49,77: DRAW 84,@: DRAW @,-25: DRAW 
-84,9: DRAW 9,25: PLOT 86,145: DRAW 49,-52: 

DRAW 4,9 

9928 DRAW 40,52: DRAW 9,25: DRAW -4@,~-77 

9939 PLOT 126,81: DRAW -49,-77: DRAW 84,9: DR 

AW 9,25: DRAW -84,@: DRAW @,-25: DRAW 9,25: D 

RAW 40,52: DRAW 4,6: DRAW 49,-52: DRAW 9,-25: 
DRAW -49,77 

9949 PLOT 122,89: DRAW -197,71: DRAW 39,9: DR 

AW G,-146: DRAW -39,9: DRAW 9,146: DRAW 32,9: 
DRAW 77,-71: DRAW @,-4: DRAW -197,-71: DRAW 

39,9: DRAW 77,71 

9959 PLOT 134,89: DRAW 197,71: DRAW -39,9: DR 

AW @,-146: DRAW 39,9: DRAW 9,146: DRAW -39,9: 
DRAW -77,-71: DRAW 9,-4: DRAW 187,-71: DRAW 

-38,9: DRAW -77,71 
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9599 RETURN 

9899 FOR f=1 TO 7: FOR G=@ TO Fs PRINT INK G 
;AT £,¢#¥2j; "ENERGY FIELDS": BEEP .93,G:i NEXT G 
s NEXT F 

9835 RETURN 

9849 PRINT AT 19,9; “Guard the tube with your 

craft by setting up energy shields at the 4 

open ends of the system. Attempting to place 
afield at any place other than the end 

will result in your destruction." 

9859 PRINT “Setting one up at a tube not c 

ontaining an enemy will result in destruction 
also." 

9655 PAUSE @: CLS : GO SUB 9899 

98460 PRINT AT 9,93 "Move with I(up) & 2(down) 


but remember that you move right at the sam 
e time and going off the screen will place yo 
uoon the opposite side.” 


93796 PRINT "Place an energy field at a tube m 

outh with @."’"Letting an enemy past or self- 
destruction results in power loss and if 
this is too great then the game is over."’ 

7 INVERSE 1; OVER 1; "Press a key to start": P 

AUSE @: CLS 

9869 RETURN 
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Drag Racer 


This is a simulation of a drag race. The object of the game is to complete 
the quarter mile course in the shortest possible time. You have four gears 
and must determine the optimum moment for changing up. If you 
change too early, your revs will fall too low and you will lose valuable 
time; if you spend too much time in high revs you’ll probably blow your 
engine. The rear end ratio of the car is progressively increased with each 
succeeding game, and the right moment to change gear becomes 
increasingly hard to judge. 


REM Drag Racer @ R.Erskine 1983 

GO SUB 4gag 

GO SUB 999¢ 

GO SUB 915¢ 

LET g=1 

LET I=CODE INKEYS 

IF [#199 THEN LET asat+l 

IF I>948 AND I<53 THEN LET g=I-48 

IF t<3 THEN LET rpm=FN a(x): GO TO 149 
LET rpm®FN b(x) 

IF RND>(rpm-6999)/i1998 THEN GO TO {6g 
GO TO 39982 

LET os=ns 

LET op=np 

LET tq=FN c(x) 

LET tqi=17 

LET ns=FN d(x) 

LET np=FN e(x) 

LET tst+ti 

LET a=FN f(x) 

LET x=48XSIN a 

LET y=48*#COS a 

IF tol THEN PLOT 152,56: DRAW OVER 1jx 


PLOT 152,56; DRAW OVER lLix,y 

LET xx=xi LET yy=y 

LET a=FN g(x) 

LET n=48*SIN a 

LET o=48*COS a 

IF tol THEN PLOT 49,56: DRAW OVER 1jnn 
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3a0 
359 PLOT 49,56: DRAW OVER Iiin,o 
369 LET nn=n: LET aaea 
365 PRINT PAPER 53 INK SSAT linl,calij;"_" 
49d LET cali=colitINT (¢({np-ap)/cl) 
41a IF cali>31 AND lini<8 THEN LET colizg+¢ 
coli-31): CET lini=lini+1 
469 IF lini<8 THEN PRINT PAPER S$ INK Si AT 
lini,caoll;"A" 
SO@g IF np<1320 THEN GO TO 1lg@ 
2909 LET t=FN h¢x) 
206685 IF bt=@ THEN LET bt=t 
2919 IF t<bt THEN LET bt=t 
2930 PRINT AT 9,9i "Time "jts" secands” 
2949 PRINT "Best time: "jbtj" secands" 
2959 PRINT "Maximum speed: “jnsji" mph" 
2955 FOR x=1 TO 1i@gg: NEXT x 
2969 PRINT "Press any key to restart” 
2970 IF INKEYS="" THEN GO TO 2979 
29°9 LET gr=grt.i: IF gr>4.1 THEN LET gr=4.1 
1 
2995 GO SUB 9agg 
2894 GO SUB 9319 
21ga GO TO 29g 
3998 PRINT FLASH 15 PAPER 2; INK 4G;5AT linti,c 
O11; "A"GAT G,3; "Engine blawn": GO TO 2955 
4999 PAPER @: INK S: BORDER @: CLS 
4d19 PRINT AT 9,19; "Drag Racer" 
4928 PRINT 
4039 PRINT "In this drag racing simulatian ”, 
"you must try ta caver the ","quarter mile in 
the shartest ","paossible time. The anly cant 
ralsyau need are the gears which ", "must be c 
hanged at the aptimum ","mament."s PRINT 
4949 PRINT "At the start you are in first "," 
gear and you must watch the rpm counter and d 
ecide when to ", "change inta secand. At aver 
*", "6999 rpm there is a high ","probability a 
# the engine ","blawing.":s PRINT 
4959 PRINT "With each succeeding attempt "“,"t 
he rear end ratia is increased slightly which 
makes the game ","“pragressively more difficu 
l1t."7: PRINT 
$969 PRINT "Try not to change gear too late o 


242 Drag Racer 


r too early. The gear keys arel,2,3 and 4. 
Good Luck.” 
49798 PRINT : FOR x=!1 TO 1480: NEXT x 


4989 
4985 
4599 
8d9g 
891d 


8525 
8938 
8d4a 
895g 
894d 
9d98 
9295 
91D 
9G26 
9S3B 
9S49 
9S3D 
9B7?S 
9938S 
GBI 
91ag 
GIID 


PRINT "Press any key to start” 
IF INKEYS="" THEN GO TO 4985 
RETURN 

FOR x=@ TO 7 

PRINT PAPER SjAT x,93" 

NEXT x 

FOR x=112 TO 168 STEP 8 

PLOT @,x: DRAW INK @}255,0 
NEXT x 

RETURN 

DIM g(4) 

BORDER 5S: PAPER @: INK 7: CLS 
LET g(1)=4 

LET g(2)=2.5 

LET g(3)=1.5 

LET g(4)=1 

LET t=@: LET np=a@: LET ns=np 
LET mph=a 

LET rpm=d 

CIRCLE 152,56,48 

CIRCLE 49,564,438 


PRINT AT 14,5; "RPM"SAT 14,175 "MPH"3AT io 


3263 “Drag"sAT 19,26; "Racer" 


9120 PRINT AT 14,1335 "135"5AT 14,2335 "45"5AT F, 


19; "S"3AT 28,185 "9" 


913G PRINT AT 9,65 "S"FAT 14,197 "17"F AT 14,05" 


S2"°;AT 26,53 "35" 


9148 
9145 
915g 
9169 
Gi7o 
m) 

918g 
G190 
929548 
92195 
9228 
92508 


GO SUB 8ga¢g 

RETURN 

DEF FN a(x) =4289%(g(g)/g(1)) 
DEF FN b(x)Ssnskgrk¥gl(g) ¥con/cire 


DEF FN c(x)=(ci¥rpm*3) +(c2¥rpm*2) + (c3krp 


DEF FN d(x)=sost(tq/tql) 

DEF FN e(x) =optns* (52389/49%*2) 

DEF FN £€(x)=(nsk¥2) /18GXPI 

DEF FN g(x) =(rpm/19.5) /189*%PI 

DEF FN h(x) =t+(1326-o0p) /(np-op) -1 
LET con=63369 


9269 
9270 
9289 
9298 
9388 
9316 
9328 
9338 
9349 
935G 
9999 
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LET circ=4523.893421 

LET ci=-1.8953E-9 

LET c2=1.82157E-5 

LET c3=.¢@15752 

LET bt=98; LET gr=3: LET c1=5.176 
LET linie@: LET coli=9 

RESTORE : FOR x=USR "a" TO USR "“a"+7 
READ ni: POKE x,n 

NEXT x 

DATA 6,9,9,9,224, 255, 227,255 
RETURN 
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Moonlander 


This is an up-market real-time lander program which gives you an 
opportunity to grapple with the problems which face a space-lagged 
cruiser commander returning home after along haul. The object of the 
exercise is to land your craft on the chillingly small landing-pad at the 
bottom of the screen. Precision is the name of the game, because if your 
rate of descent is greater than -5 you and your crew are gonners. A word 
of warning: if you over-fire your rockets you’!l disappear into hyperspace 
until returning back on screen, plummeting to your doom unless you’ve 
been doing some nifty blind flying to slow your descent. 


18 
29 
8a 
9a 
189g 
1i@ 
12g 
139g 
149 
159 
169 
1798 
175 


2da 
216 
226 
234 
232 
Tai 
234 
ol+tt 
24g 
258 


REM Moon Lander © Robert Erskine 1983 
GO SUB egag 

GO SUB Saag 

IF E=@ THEN Ga TO 15a 

LET m=m1: LET mi=m-Fil 

LET Hi=H: LET H=(H+t+V)-.31 

LET VEV4+((T/FLIXCLN (m/mi)))-1.62 

LET FHF-Fi 

GO TO 175 

LET mi=m: 

LET HL=H: LET H=(H+V)-.81 

LET V=V-1.62 

LET coli=col 

IF col>@ AND RND>.5S THEN LET col=col-1 
IF col<3i AND RND>.S THEN LET col=col+il 
PRINT AT @,@3 "Height “s INT H;” 


PRINT "Velocity "SINT Vi" _ 

PRINT "Fuel "“3F5" ” 

IF INKEY#="0" THEN LET E=% 

IF INKEY$="i" THEN LET E=1 

IF INKEY$="z" AND col>@ THEN LET col=co 


IF INKEYS="x" AND col<3i THEN LET col=c 


IF H>2@9@ QR H<il THEN GO TO 279 
PRINT $;AT 28-(H1/198),colis" "§ INK S5AT 


28-(H/1988) ,col3 "A" 


26g 


IF E=1 THEN FPRINT AT 21-(H1/198) ,col1;5" 
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"3 INK 23AT 21-(H/148) ,cols "B"sSAT 21-(H/19@) 
,cols;” " 
278 PRINT INK ?7SAT 26,635" a — 
ope ee eS CON SA ea, Lege 
36@ IF F=@ QR H<=8 THEN GO TO 2988 
Sig Ga Ta 7a 
2908 IF F=@ THEN PRINT FLASH 1; AT 18,195 "QU 
T OF FUEL” 
26198 IF H<=@ AND V<-S THEN FRINT FLASH IL5AT 
11,8; "YOU HAVE CRASHED": GO TO 3898 
28026 IF H<=@ AND V>-G& THEN PRINT FLASH IL3AT 
11,8;"YOU HAVE LANDED’: FRINT AT 28-(H1/1a@) 
scolis" "2 PRINT INK SjAT 28,col3"A": INK @ 
2625 IF H<=@ AND V>-6 AND col=15 THEN PRINT 
PAPER 6: FLASH L3AT 12,53 "IN THE CORRECT PLA 
CE" 
2026 IF H<=@ AND V>-6 AND col<>15 THEN PRINT 
PAPER 63 FLASH !L3AT 12,65 "IN THE WRONG PLAC 
EE" 
2838 INK 7: PRINT AT 15,43 "PRESS ANY KEY TO R 
ESTART” 


2448 IF INKEY$="" THEN GO Ta 2849 
2658 GO TO 3@ 
3608 PRINT AT 2@-(H1/19@),coli3" "3 INK S3AT 


20,coli3"c" 

S818 FOR x=1 Ta 5 

S@26 BEEP .9@3,x-26 

338 NEXT x 

38940 GO TO 2636 

8998 BORDER @: PAPER @: INK 6: CLS : PRINT AT 
2,43 "MOON LANDER” 

8829 PRINT 

883@ PRINT "This is a real-time moon lander g 

ame in which you must land the lunar module o 

n the small purplelanding pad. You must land 
in ","the correct place at a rate of ", "desc 

ent not faster than -5." 

8849 PRINT 

8958 PRINT "Use the folowing command keys:" 

89469 PRINT 

8976 PRINT " 


Zz = move left": PRINT 

8d8ad PRINT "x 
i 
o 


move right": PRINT 
motor on": PRINT 
= motor off": FRINT 


8849S PRINT “i 
8168 PRINT " 
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Siig PRINT "Press any key to start” 

Bi2@ IF INKEYS=""THEN GQ TO @12¢ 

8130 RETURN 

9988 LET H=2a¢¢ 

9gig LET V=-2¢6 

9820 LET m=1378: LET mi=m 

9G3G LET T=48aa0 

9640 LET Fil=2 

9a5e LET FH378 

996@ LET E=1 

9aee@ LET col=1i5 

9a90 LET y=8 

9298 PAPER @: BORDER @: CLS 

921¢@ FOR x=1i TO 34 

9226 PLOT INK 7SINT (RND¥255),INT (RND¥165) + 
ig 

9238 NEXT x 

929@ RESTORE : FOR x=USR "a" TQ USR "cC"+?7 
9399 READ n: POKE x,n 

931@ NEXT x 

9328 DATA 66,126,219, 255, 255,126,189, 129,24,6 
9,69,68,249,24,9,4,6,9,9,9,24,69,126,255 
933G PRINT INK 35AT 28,153 "_” 

9340 RETURN 


247 


Anagrammatic 


This is a simple anagram jumbler. There are few things more infuriating 
than staring blankly at crossword clues, unable to de-jumble the letters. 
This little program will hopefully get the old brain ticking again with 
some fresh ideas on how to unscramble the problem. 


19 REM **ANAGRAMATIC#*¥ A SIMPLE 

ANAGRAM SOLVER by H.NYWALW 

29 POKE 23658,255: REM forces caps shift 

39 BORDER 35: PAPER 5: INK @: CLS 

49 PRINT TAB 19; BRIGHT 13; INVERSE 1s "ANAGR 
AMATIC” 

S@ PRINT : PRINT “ IF YOU ARE A CROSSWORD A 
DDICT, THEN YOU WILL KNOW THE PROBLEMS” 

68 PRINT “OF TRYING TO REARRANGE LETTERS. " 

798 PRINT : PRINT “ FOLLOW THE INSTRUCTIONS 
AND THEN SIT BACK AND WATCH THE * 

75 PRINT “SCREEN AS EVERY POSSIBLE * 

88 PRINT “COMBINATION RUNS UP BEFORE YOUR V 
ERY EYES. THE AIM IS NOT TO LOOKAT EVERY WORD 
GROUP, BUT SIMPLY “ 

85 PRINT “TO GLANCE AT THE SCREEN QCCASIQO-N 
ALLY AND YOU MAY WELL GET SOME” 

98 PRINT “INSPIRATION. * 

95S PRINT : PRINT “ALTERNATIVELY,PUT IN A PR 
INTER SUBROUTINE FOR HARD COPY." 

1g@ PRINT “PRESS ANY KEY TO START. “ 

194 IF INKEYS="" THEN GO TO 124 

lis BORDER 4: PAPER 4: INK 8: CLS 

128 PRINT TAB 43" ANAGRAMATIC " 

L328 PRINT "? "TYPE "§$ INVERSE Ls “ONLY"3; INVER 
SE 93" THOSE LETTERS WHICH", "ARE TO BE REARRA 
NGED.DO NOT"“,"“INPUT ANY LETTERS WHOSE POSITIO 
NIS KNOWN. " 

148 INPUT AS: IF AS="" THEN GO TO 142 

15a PRINT 

l6g LET L=LEN AS 

170 PRINT “ARE ANY LETTERS/SPACES KNOWN?", “P 
RESS Y(YES) OR N(NO)” 

175 LET Z@=INKEYS: IF Z2#="" THEN GO TO 175 
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1898 IF Z#="N" THEN GO TO 249 
181 IF Z#<>"Y" THEN GO TO 175 


199 


PRINT 


“TYPE IN THE KNOWN GRDER AS PER E 


XAMPLE.“: PRINT "E.G. °---D-F- -EE*" 
293 INPUT KS: LET W=L 
219 LET T=@: FOR J=1 TO LEN K&: IF K&(J)="-" 


THEN 


228 
288 
238 
248 

NEXT 
258 
268 

BOG: 
278 
208 
298 
308 
395 
319 
328 
338 
348 
358 
368 
370 
38g 
398 

+13 
49g 
418 
428 
438 
448 
458 
468 
478 
480 
498 


NEXT J 


LET T=Ttl 


: IF T<>L THEN GO SUB t9gad: GA TO 


GO Ta 279 
LET Ke=""s FOR J=1 TO Li LET K&=KSt"~"% 


J 
INPUT 
IF Wé<l 


"NUMBER OF LETTERS TO BEGIN",W 
OR W>L OR W>INT W THEN GO SUB 1 


GO TQ 259 
DIM BS#(L): DIM CH(L): DIM ACL) 


PRINT 


GO SUB 599d 
FOR J=W TO L 


PRINT 


LET K= 


LET Q¢ 
IF BS ( 


AT 21,35" "i POKE 23692,-1 
1 

K)=1 

Q(K))=" " THEN GO TO 449 


LET C#(K)=BS(Q(K)): LET BS(Q(K))="" 
LET K=K+tti 

IF K<=J THEN GO TO 329 

LET Aw! 

FOR S#1 TO LEN K® 


IF K&¢ 


S)="-" THEN PRINT CS#(A)$5: LET A=A 


GO TO 419 


PRINT 


KS (S) 5 


NEXT S: PRINT 

LET K=J 

LET B#(Q(K)) =AS(Q(K)) 

LET @(K)=Q(K) +1 

IF Q@(K)<=L THEN GO TO 332 
LET K=K-1 


IF K>= 
NEXT J 
PRINT 


1 THEN GO TO 4398 


: PRINT "THAT'S ALL THE POSSIBLE A 


NAGRANSWRITTEN. TYPE RUN FOR ANOTHER GO.": STO 


P 


S48 FOR N=1 TOL 


S19 LET BS(N)=AS(N): 


1986 PRINT 


LEASE REDQ......."3 
9999 PAUSE 2: 


BRIGHT 13 
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NEXT N: RETURN 
FLASH 1;"E RRO R! 


RETURN 
BORDER @: PAPER @: INK 6: CLS 


P 
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Stellar Run 


On a routine run into hyperspace, you suddenly come upon a new 
universe. Instantly your cruiser is confronted with a series of mazes, 
obstacles and tunnels as you struggle to chart new horizons. Asan 
experienced commander, you are well aware that any contact with the 
numerous meteors, rock walls or barriers will lead to your instant 
destruction. You will need to think fast and use your missiles to blast a 
hole through obstacles. So stand by, finger on the keyboard... Good 
luck! 


1 REM STELLAR RUN GRIGINAL 
VERSION @ H WALWYN SPECTRUM VERSION @ D 
PARKER 


2 RANDOMIZE : CLS : PRINT AT 198,198; FLASH 
1; *°STELLAR RUN"! GQ SUB 8999: BORDER black: 
GO SUB 7999: GO TO 699¢ 
199 REM SCREENS FOR UDG 
119 LET 1=CODE SCREENS (yti,x): IF i THEN R 
ETURN 
128 POKE 23696,PEEK 23675: POKE 23697,PEEK 2 
3676-1 
138 LET i=CODE SCREENS (yt1,x)+11l2 
149 POKE 23696,9: POKE 23697,624 
159 RETURN 
1999 REM MAIN LOOP 
lgi@ POKE 23692,255 
1629 LET e=eteeXRND: GO TO 1999+dk19d 
lige REM D=1 
1119 LET d#@=as( TO SIN (ee) #11+13)+CHRS 29+CHR 
S$ O+bS$( TO 24) +as: IF e215 THEN BEEP .1,e/3: 
LET d=2 
11298 GO TO 298998 
129G REM D=2 
1219 LET d#=a%( TO SIN (e)¥11+13)+CHRS 28+CHR 
$ B+bS( TO 16)+aB:i IF @>38 THEN BEEP .1,e/3: 
LET d=3 
1229 GO TO 2896 
1399 REM D=3 
1316 LET d#=a$( TO SIN (e)+COS (@%.9)¥4.5t12) 
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+CHRS 26+CHRS G+bs( TO 16) tai IF RND<.938 THE 

N LET d#=ae 

1326 IF e>45 THEN BEEP .1,e6¢/3: LET d=4 

1339 GO TO 299¢g 

14990 REM D=4 

1419 LET n®=CHR® 20+CHRS O@+bS: IF RND<X.@8 THE 
N LET n#=CHR® 29+CHR® G+is 

1429 LET d=as( TO (SIN (e)+COS (ek1.1))*4.5+ 
12) 4+ne( TO 16) +a 

14390 IF @>68 THEN BEEP .1,e/3: LET d=5 

1449 GO TO 29900 

15¢9 REM D=5 

1512 IF RND>.6 THEN LET d#=CHR® 29+CHR G+bs 
: GO TQ 1532 

1520 LET dS@=CHRS 28+CHRS G+cB (INT (RNDK4H+1) 
TO 4@) 

153@ IF e>75 THEN BEEP .1,e/3: LET d=6 

15496 GO TO 2808 

16668 REM D=6 

1618 LET d@=ae( TO SIN (e@)*¥12+14)+CHRS® 2O+CHR 

% JtbS( TO 14) +as: IF @>99 THEN BEEP .1,e/3: 
LET d=? 

1626 GO To 29090 

17g REM D=? 

1719 LET d#=aG( TO (SIN (e)+COS (e¥5.1))*¥4,.5+ 
12) 4+CHRS 29+CHRS @+bs( TO 16) +a: IF e>185 TH 

EN BEEP .1,6/3: LET d=8 

i720 GQ TO 2¢99 

1846 REM D=S 

1819 IF RND>.25 THEN LET d#=CHR® 24+CHRE Gtb 

#: GO TO 183¢ 

18629 LET d#®=iS(INT (RND*¥2+1) TO 39) 

1839 IF e>128 THEN BEEP .t,e/3: LET d=9 

18498 GO TO 299g 

1999 REM D=9 

1919 IF RND>.S THEN LET d#=CHR® 29+CHR 1+bS 
: GO TO 1932 

1929 LET dS=at 

1939 IF e>=135 THEN GO TO 399g 

2998 REM PRINT 

201a@ IF LEN d#®<3S2 THEN LET d#=d¢+aH 

29390 PRINT AT 21,31; INK di PAPER 93 "BB"3 ds 
TO 32);AT G,83 INK FF "MISSILES="Sfg935AT O,L135" 
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LEVEL=";d3AT 8,22; "LYEARS="j; INT e@ 

2190 REM CHECK IF KEY PRESSED 

2118 LET k=CODE INKEYS: IF m<@ THEN LET m= 
2120 BEEP .92,m*1i@: LET fg=fgtl 

213@ IF NOT k THEN LET m=m-2: GO TO 23989 
2149 IF k<>48 THEN GO TO 2299 

2158 IF f9<2 THEN GO TO 2392 

2166 LET f=1: LET f#9=f9-2 

21798 IF f9<@ THEN LET f9=9 

2is8 GA Ta 239g 

22a@ REM KEY PRESSED 

2219 LET m=m+i: IF m>3 THEN LET m=3 

2229 IF k=S53 THEN LET x=x-m: IF x<¢1 THEN LE 
T x=1 

2238 IF k=56 THEN LET x=xtm: IF x>?3@ THEN L 
ET x=39 

2249 IF k=5S4 THEN LET y=ytm: IF y>14 THEN L 
ET y=14 

225@ IF k=55 THEN LET y=y-m: IF y<1 THEN LE 
T y=1 

2368 REM DISPLAY AND CHECK HIT 

2310 IF #9>9 THEN LET fg=9? 

2315 GO SUB 1896: IF i>144 THEN GO TO 4809 
2329 PRINT AT fy-1,4x3 PAPER 83 INK 935" “SAT 
fy-2,fx5 PAPER 83 INK 93" "SAT y»,x5 PAPER 8&3 
INK 93s: LET #x=xi LET fy=y 

233@ IF #<1 THEN GO TO igaa 

2349 IF £=2 THEN GO TO 2355 

23558 LET f=2 

2355 BEEP .d1,d 

2368 LET r=x*¥8+3: LET s=(2i-y)*8: PLOT BRIGH 
T 13 INK rédir,s: DRAW BRIGHT 13 INK reds OV 
ER 159,-598: PAUSE 5: PLOT BRIGHT @3; INK red; 
r,s: DRAW BRIGHT @&3 INK red; OQVER 1590,-S¢ 
2378 LET t=(r-4)/8: FOR veyti TQ y+7: IF SCRE 
ENS (v,t)}<>" " THEN FRINT AT vyts PAPER 85” 
“; BEEP .25,-19 

2339 NEXT vi: LET #=8: GO TO 1g9¢ 

Sega REM YOU'VE MADE IT 

Sdig INK red: PAPER yellow: BORDER blue: CLS 
S$a2a@ FOR k=@ TO 46: REEP .@1,k: BEEP .@1,48-k 
: NEXT k 

3439 FOR k=9 TO 7: BEEP .61,k: PRINT AT k+5,3 
3 INK S-ks PAPER k+1is; "WELL DONE! YOU'VE MADE 
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IT!" BEEP .91,298-k:i NEXT k 
3d498 GO TO 4072 
4¢ga REM SHIP HIT 
4995 PRINT AT fy-1,f«j" " 
4919 FOR k=@ TO 7: BEEP .92,-1: PRINT AT y,x3$ 
x@(k+1)i BEEP .92,1: NEXT k 
49298 INK black: PAPER yellow: CLS : BORDER b! 
ack 
49398 PRINT AT 6,115 FLASH 1; “DESTROYED! " 
4440 PRINT AT 8,7;"You got as far as" 
4658 PRINT AT 198,143 INT (eX¥18)/1¢8 
4969 PRINT AT 12,143 "light years” 
49795 PRINT AT 14,463 "ANOTHER GAME? (y/n)" 
$989 LET k#=INKEYS: IF k#="y" THEN GO TO 68¢ 
g 
9899 IF kB<>"n" THEN GO TO 49889 
4199 GO TO 9999 
6ge90a0 REM INITIALISE 
601g PAPER 7: CLS : FOR a=@ TO 21: PRINT : NE 
XT 2 
6820 REM X AND Y POSITION OF SHIP 
6925 LET x=16: LET fx=x: LET y=1@: LET fy=y 
6939 REM MISSILE BANK 
6849 LET fg=9 
695@a@ REM DISPLAY SHIP 
69354 FOR k=8 TO 48: BEEP .@1,k: BEEP .81,48-k 
> NEXT k 
46955 LET s#=CHR® 144 
6969 PRINT AT y,x35% 
69798 REM VARIABLES 
6989 LET f=@: LET m=@: LET d=1:i: LET e=9: LET 
a=@: LET bS@: LET c=9@: LET ee=.2 
699A LET x#=CHR® 148+CHR#® 32+CHR# 149+CHRE 32 
+CHR® 154+CHR# 151+CHR# 152+CHRS 32 
6189 LET o@=CHR#® 145: LET p#=CHR® 146: LET gt 
=CHR# 147 
61198 LET at@=“":i FOR k=1 TO 45: LET at®=at+CHRe 
145: NEXT k 
6128 LET ig=""i FOR k=1 TO 45: LET i*=i%+CHRS 
147+CHR® 32: NEXT k 
6139 LET b#=" 
61496 LET c#=" "+p +" "+pe+" 
“+pge" “+tpg+" 
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“spot Py 

6999 GO TO 199¢ 

760g REM INSTRUCTIONS 

7818 PAPER yellow: CLS : PRINT AT @,163 INK r 
ed; INVERSE 1;"STELLAR RUN” 

7@28 INK black: PRINT AT 1,65 "You are in 
control of theSTELLAR TRIPPER and 
havediscovered a new galaxy." 

7838 PRINT °"The galaxy is 135 light years 
wide and you will have tonavigate your 

way through theWARP MAZE." 

7848 PRINT ’“Each time you play you will be 
given a slightly different maze....50 watch 
Outed ee 

7O58 PRINT ’"See how far you can get!” 

7@6G PRINT ’'"No-one has reached the other 
side!" 

7876 PRINT ’"The further you go, the harder 
it is!" 

7888 PAUSE 199g: CLS 

7699 PRINT AT 8,23; "Press 5 to move left"; TAB 
8;"8 to move right"3 TAB 63"6 to move forward” 
3;TAB 83"7 to move back"$TAB 43; "SPACE to fire 
laser" 

7ige PRINT AT 21,53 "Press any key to start” 
Pilig@ IF INKEYS="" THEN GO TO 7116 

7999 RETURN 

seeg REM GRAPHICS 

OS1iG@ DATA "a",66,192,126,126,69,460, 24, 24 

86290 DATA "b",255,179,251,1798,255,1708,255,176 
883A DATA "c",24,36,192,153,153,1982,36,24 
8G@4@ DATA "d",129,66, 36, 24, 24,356,66,129 

BG5a2 DATA "e",66,182,126,126,468,69,96,¢6 

BG4G DATA "F",466,192,126,126,68,168,9,73 

88728 DATA "g",66,182,126,126,66,8,9,129 

8988 DATA "h",66,162,126,9,161,9,3,¢6 

8978 DATA "i",128,16,5,4,69,9,4,9 

8ie@ FOR a=1 TO 9: READ at: FOR b=8 TO 7: REA 
Doc: PQOKE USR atStb,c: NEXT b: NEAT a 

8298 LET blue=1: LET red=2: LET magenta=S: LE 
T green=4: LET cyan=5: LET yellow=6: LET whit 

e=7: LET black=9 

8999 RETURN 

9999 BORDER 7: INK @: PAPER 7: CLS 
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Russian Roulette 


The six-shooter points straight at you. There is only one bullet some- 
where in the cylinder. Spin the cylinder as much as you wish and then 
press the trigger — if you dare! 


1g REM ¥RUSSIAN ROULETTE @19 

83 MICHAEL BEWS 

29 BORDER @: INK 7: PAPER @ 

3@ LET F=1: LET SC=@: LET HS=¢ 

198 CLS : PRINT INK 73 PAPER 2; "RUSSIAN ROU 
LETTE";TAB 93 

119 CIRCLE 126,119,32 

12@ CIRCLE 146,131,6 

13@ CIRCLE 146,197,6 

148 CIRCLE 126,95,6 

15@ CIRCLE 186,197,6 

169 CIRCLE 106,131,6 

17@ CIRCLE 126,143,6 

16@ CIRCLE 126,119,14 

185 CIRCLE 126,119,13 

187 CIRCLE 126,119,12 
290 PRINT AT 11,155 "Mm@"SAT 12,153; "@m"sSAT 13, 
$"MM'GAT 14,155 "MM" SAT 15,155 "mm" 

1@ PRINT AT 2,153" " 
2@ PRINT PAPER 13 INK 73AT 16,83 "THIS IS A 
REVOLVER, POINTING AT YOU. IT HAS ONE BULLET 
» PRESS ’A’ TO SPIN THE CYLINDER FOR AS LON 
G AS YOU WISH AND FIRE WITH 'B’. SCORE 1@@ €E 
ACH TIME THE GUNFAILS TO KILL YOU,THEN TRY AG 
AIN" 

228 PRINT AT @,18; INVERSE 13 "THIS SCORE: 
"SAT 1,153 ""HIGHEST SCQRE: 7 

258 LET A=PEEK 23556: IF A=255 THEN GO TO 2 


252 BEEP .902,30 
255°PRINT AT 6,152": -“fAT 7, tse" “PAT 12,20 
5 MAT? bas oaa . 

26G IF A<>65 THEN GO To 4a¢ 

3@@ PLOT OVER 13146,131: LET Fei: PLOT OVE 
R 13146, 131 
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385 LET A=PEEK 23556: IF A<>é65 THEN GO 
5a 

3ig PLOT OVER 135146,197: LET F=2: PLOT 
R 13146,197 

315 LET A=PEEK 23556: IF A<>65 THEN GO 
Sa 

320 PLOT OVER 15126,95: LET FH=3: PLOT 
15126, 95 

325 LET A=PEEK 23556: IF A<>é65 THEN Ga 
52 

339 PLOT OVER 13196,197: LET Fe4: PLOT 
R 13196,197 

S35 LET A=PEEK 23556: IF A<¢>é5 THEN GO 
5a 

S40 PLOT OVER 135106,1231: LET FHS: PLOT 
R 1j3186,131 

345 LET A=PEEK 23556: IF A<>65 THEN GO 
5g 

S5@ PLOT OVER 135126,143: LET F=6!: PLOT 
R 13126,1435 

369 GO Ta 259 

4@@ IF A<>66 THEN GO TO 259 

419 IF F=1 THEN PRINT INK 23 PAPER 73 
H 15AT 6,155 "MOS AT 7,155 "MH" > PRINT AT 
SO; "YOU'RE DEAD! "FAT 14,26; "BULLET IN "3F: 
Ta 5e9 

428 PRINT AT 12,283; "YOU SURVIVED"3;AT 14, 
BULLET IN "3F 


OVE 


FLAS 
12, 2 
Go 


205" 


439 LET SC=SC+ig@: PRINT INVERSE 1L;3AT 9,293 


" "SAT @,29;SC 

449 IF PEEK 23554<>255 THEN GQ To 449 
445 BEEP .1,0: BEEP .1,5: BEEP .1i,1 
459 GO TO 25¢ 

5@@ IF HS<SC THEN LET HS=SC 

595 LET SC=g 


Sig PRINT INVERSE 1;3AT 1,293" "SAT 1,295H 


S 


SiS PRINT INVERSE 13AT 6,293" "SAT 8, 2953S 


S29 IF PEEK 23556<>255 THEN GO TO S29 


S22 BEEP .!,1: BEEP .1i,1: BEEP .1,98: BEEP .1i 


SS3e@ LET F=1: GO TO 259g 
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Swordsman 


Choose your moment, then swiftly thrust your sturdy blade into the 


8 


aping jaws of some hideous monster. Beastmaster you’ll never be, these 


nasties are definitively untameable, but swordsman you might just about 
manage. It’s all quite simple. You just have to survive and get as many 
points as possible before some hideous creature does for you. Maybe the 
Vampire Cat will get to chew on your jugular. Who can tell? Quick. 
Lunge and thrust, missed . . . back to the left quickly . . . missed again . . 


Aaargh...! 
1 BORDER 4: INK 1: PAPER 4 
2 POKE 23685,255 
1g REM SWORDSMAN B 
Y H. WALWYN FOR THE CBM 64 
Cc 
ONVERTED FOR THE 16/48K SPECTRU 
M BY ANDY GREEN 
25 LET MZ=¢ 
3d DIM ES$(4,64): LET ES(1)="YOU ARE UNHARME 
D AND RARING TQ GO 
31 LET ES#(2)="YOU ARE SLIGHTLY WOUNDED NOW. 
BE BRAVE " 
32 LET E#(3)="YOU HAVE RECEIVED MULTIPLE 
LACERATIONS. H 
33 LET ES(4) ="IT'S YOUR LAST CHANCE NOW. GO 
OD LUCK... : 


A 


190 DIM VC(F) 

119 FOR J=1 TO 9: READ V(J)!: NEXT J 

(29 DATA 3, 495345 2s bp 

159 REM ¥¥ VK=NUMBER OF DEAD MONSTERS 
160 REM ¥¥ WK=WOUNDED LEVEL 

170 REM ¥¥% PK=POINTS SCORED 

18@ LET VK=@: LET PK=1: LET WK=1 

20@ DIM VH(9,17) 

218 FOR K=1 TO 9: READ V&(K)! NEXT K 

229 DATA "GANGRENE GOAT", "NORTH-SEA BOIL", "V 
MPIRE CAT" 

230 DATA "POLITICAL WORM", "MAD METER-MAID", “ 
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SCHOOL SPINACH" 


249 


DATA "DANDRUFFFED BEAR", "RAMPANT BANKER” 


»"PICKLED ALBATROSS" 


5a¢ 
51d 
53g 
5509 
TAIN 
o8¢d 


DIM D#(4,3,4): DIM MS$(9,4,3,5) 
FOR I=1 TO 4: FOR J=1 TO 3: READ DS(I,J) 


NEXT J: NEXT I 

REM ¥% THESE DATA LINES (688-628) CON 
THE VARIOUS STANCES OF THE SWORDSMAN 
DALLA.” Wi 0 ee 14 

DATA: POOLS O- Ace 

DATA * OCs" Baoan" x" 

DATA: te ah ae 

FOR K=i TO 9: FOR J=1 TO 4: FOR I=i To 3 


; READ M#(K,J,I) 


NEXT I: NEXT J: NEXT K 
REM ¥* THESE DATA LINES (799-876) CON 
THE VARIOUS STANCES OF THE MONSTERS WH 
OPPPOSE THE SWORDSMAN 


DATA " O ", “Bia@-","))" 
DATAY*® 0°53 Be VA" 
DATA “ 0", MEST, "7 \" 
DATAS"O. 05 pak tae 


DATA "XH", "OOK", "% MX" 
DATA "XXX", "¥O:0%","% MB ¥" 
DATA "#X#", "KOIOX", *" 

DATA "X#","*O:O%","% ©" 


BATA oo ee SR 

DATA "#, SoS. oe Pe 

DATA Stone PN * 

DATA ON toe # ry 

DATA "“, "goo ‘O*"," GO oO” 
DATA “"j4mo 00", "OO. <o" 
DATA "","00 O", "#00 a" 

DATA," %5"00° —"4."g00. 00" 
DATA "“SSSSS", "$0.08", "<< >>" 
DATA "SSSSS", "$0.08", " X X" 
DATA "SSSH","GO,08", "<< >>" 
DATA "SS5SS","S0.08"," x Xx" 


DATA "M8 @", "SOM", ” mm" 
DATA "SHG", "SESH", "Omm" 
DATA " SM", "Sam", "@ ©" 
DATA "MS a", "Sm M", "SOM" 
DATA "*00K."," “yt oes 
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GO 


S22DATA *“#O0k"," 19," E  * 
824° DATA "200k, Ae 
G20, DATA: *XOOR" | Wy Re 
848 DATA " ON, "-2-", "Xx" 
S42 DAUR: * ON ay PEC ae 
Soe BALA, © Os [tx 8 
846 DATA “ O", "mam", "7 \" 
Soe DALAM or cg he 
862 DATA "Q--<", "tt, 
864 DATA "O\\K"," mm oy" 
SSG DATA gy tOrH cee 
999 REM ¥* START OF GAME 
199 CLS 
1198 GO SUB 4929 
1998 GO TO 1989 
2759 FOR L=1 TO 194: NEXT L: RETURN 
276@ PRINT AT 10,8; INVERSE 1;"THE "3 VS(MZ)5" 
CUT YOU UP” 
2765 FOR I=1 TQ 198: NEXT I: RETURN 
2799 REM ** CLEAR TOP OF SCREEN 
28809 FOR X=@ TO 18: PRINT AT x, 83" 
a 
2815 NEXT x 
2817 PRINT AT 9,93 
23290 RETURN 
2952 LET MR=MZ 
2969 LET MZ=INT (RND¥9)+1; IF MZ=MR THEN 
TQ 2968 
2970 RETURN 
4988 GO SUB 2959: REM ¥* MONSTER BATLE 
4862 INVERSE 1: PRINT AT 9,95" 
au 
4993 PRINT " 
4984 PRINT " 
4605 PRINT " IT’S THE "$VS(MZ)3" 1" 
4996 PRINT " (DEGREE OF DIFFICULTY TO KILL 
"SAT 14,93 "= 
sVCMZ) 5 "0" 
4387 PRINT 3E%(WK) 
4988 INVERSE @ 
4919 LET M7=4: LET D7=2: LET M8=INT (RND¥6+2¢ 


): LET D@=15:5 LET Mé=4: LET D6=2: LET M9=MB: 
LET D9=D6 
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49t5 PRINT AT 0,93 "TOTAL POINTS="5PK 

4920 LET AS=INKEYS 

4825 IF AS="5" THEN LET D6=D8-i: LET DY=1i: I 
F D8<4 THEN LET De=4 

4936 IF AS="8" THEN LET D8=D8ti: LET D?=2: I 
F D8>27 THEN LET D8=27 

4935 IF At="6" THEN LET D7=D7+1i: IF D7>S THE 
N LET D?7=4: LET DS8=De+1: IF D@>27 THEN LET 

DS8=27 

4830 IF At="6" AND D7=2 THEN LET D7=3 


4037 PRINT AT 6,D9-13" "SAT 7,D9-13" 

“SAT S,D9-13" " 

4936 FOR X=@ TO 2: PRINT AT 6+X,D9;D&(D7,X+1) 
: NEXT xX 


4939 LET D9=D8: LET Dé=D7 

494@ IF D7=4 THEN GO TO 469 

4958 GO To 4985 

4969 FOR X=@ TO 2: PRINT AT 6+X,MOjMH(MZ, MA, X 
+i): NEXT X 

4865 FOR Z=6 TO 1 

4868 LET Z1=CODE (SCREEN® (7,1+D8+Z)); IF Zi< 
>32 AND Zi<>43 AND Z1<>45 THEN GO To 4999 
4170 PRINT AT 7,2+D8;"+" 

4072 NEXT Z 

4462 LET D7=2 

4985 LET M7=M7+1i: IF M7=5 THEN LET M7=1 

4986 IF RND>.35 THEN LET M@=M6-1 

4987 PRINT AT 6,M9-13" "SAT 7,MO-13" 

"SAT 8,M9-15" i 

4988 FOR X=9 TO 2: PRINT AT 6+X,MBsMH(MZ, Md, x 
+1): NEXT xX: IF M8<D@+2 THEN GO TO 414¢ 

4989 LET M9=M8: LET Mé=mM7: GO TO 4929 

4998 PRINT INVERSE 13AT 14,9; "WELL DONE! You 
GOT THE "SUB(MZ) 5" 

i 

4991 LET PS=INT (V(MZ)*¥D8)!: LET VK=VK+i: LET 

WK=WK-1: IF WK<¢i THEN LET WK=1 

4692 PRINT AT 9,9; "POINTS FOR KILL = ";P5: LE 

T PK=PK+P5: GO SUB 275¢ 

4993 GO SUB 2899 

4995 RETURN 

419@ LET WK=WK+1 

4192 IF WK<S THEN PRINT AT 8,8; "TRY AGAIN... 
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“; GO SUB 27460: GO SUB 28@da: GO TO 4@@1 
4igs CLS 
41985 PRINT 77773 FOR I=1 TO 3: PRINT "QH DEAR 


we 
ane rT 


4186 POKE 23492, 255 

4ig? BORDER I: FOR J=i TO 5@: NEXT J: NEXT I 
411@ PRINT *"AAAAAAAARGH!! EI" 

4129 PRINT ’ "ANOTHER HERO BITES THE DUST." 
4125 PRINT ’"YOU KILLED "$VK3" MONSTERS"? "SCO 
RING "fPK3" POINTS. “ 

4139 PRINT '"PRESS ’Y’ TO PLAY AGAIN, ’7N’ 

TO FINISH.” 

41iS82 IF INKEYS<>"" THEN GO TO 4132 

S133 IF INKEYS<>"Y" AND INKEYS<>"N" THEN GO 
TQ 4135 

4134 IF INKEYS="Y" THEN RUN 

4135 STOP 
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Hangman 


In this rather sophisticated game of Hangman the computer invites you 
to guess words from a range of topics, including animals, countries of the 
world, composers and artists, chemical elements, christian names and 
general verbs. 


The strings from which the words are chosen by the computer are stored 
in A$ and you may wish to modify the program to include your own 
words and topics or to combine all the existing topics so that the selected 
word can be taken randomly from any one of them. Note that some of the 
topics are divided up into two distinct groups of words of different 
lengths and random number routines are used in the program to 
determine which group the word is to be chosen from. 


1 RANDOMIZE : BORDER 7: PAPER 7: INK @: CL 


2 REM @ PAUL STANLEY 
4 GO SUB 79889 
S POKE 23658, 19 
ig GO TO 198998 
198 IF RND>.S THEN GO TO 125 
118 LET As="PIGEONDONKEYBUDGIEMAGGOT JAGUARSP 
IDERBEETLEWEEVILEARWIGSHRIMPSALMONPLAICEMINNO 
WBADGERCATTLEKITTENLOCUSTMAGPIERABBITTURKEYTU 
RTLECANARYGERBILMONKEYCURLEW" 
129 LET I=(INT (RND¥25)+1)¥6-S5: LET Be=As(I 
TO I+#5):3 RETURN 
125 LET A#="SNAILROACHHIPPOLLAMACHIMPCAMELHO 
RSET IGERHOUNDSNAKEROBINHERONRAVENSTORKTROUTWH 
ALEHYENAPANDASKUNK TAP IRZE BRAMOUSE SHREWEAGLESW 
IFTPERCHPRAWNOTTERGOOSEKOALASHEEP” 
13@ LET I=(INT (RND¥31)4+1)%5-4: LET BR=Ags (I 
TO I4+4): RETURN 
15@ IF RND>.S THEN GO TO 175 
169 LET AS="ALBANIAAUSTRIABELGIUMDENMARKFINL 
ANDGERMANYHUNGARY ICELANDIRELANDRUMANIABAHRAIN 
LEBANONALGERIALIBERIANIGERIASENEGALTUNISIABER 
MUDAJAMAICABOLIVIAURUGUAY " 
176 LET I=(INT (RND¥21)+41)%7-6: LET BS=As(l 
TO I+6): RETURN 
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175 LET At#="TURKE YUGANDASWE DENPOLANDNORWAYME 
X ICOKUWAITISRAELGREECEZAMBIAFRANCECYPRUSCANAD 
ABRAZILTAIWANPANAMAMALAWIJORDANAZORESANGOLA" 

185 LET I=¢INT (RND¥20)+1)%¥6-5: LET Bt=As(T 
TO I+5): RETURN 

269 LET AS="PURCELLROSSINIBELLINIBERLIOZBORO 
DINPUCCINIDEBUSSYSTRAUSSBRI TTENHOLBEINMILLAIS 
DAUMIERCEZANNEGAUGUINMATISSEPICASSO" 

21d LET I=(INT (RND¥16)+1)¥7-6: LET BHeAs(I 
TO I+6): RETURN 

259 IF RND>.S THEN GO TO 275 

269 LET AS="BARIUMCARBONCERIUMCOBALTCOPPERCU 
RIUMERBIUMHEL IUMINDIUMIODINENICKELOSMIUMOXYGE 
NRADIUMSILVERSODIUM” 

265 LET I=(INT (RND¥16)+1)%6-S: LET Be=AS(I 
TO I+5): RETURN 

275 LET AS="ARSENICBISMUTHBROMINECADMIUMCAES 
IUMCALC IUMFERMIUMGALL IUMHAFNIUMHOLMIUMIRIDIUM 
KRYPTONLITHIUMMERCURYRHENIUMRHODIUMSILICONSUL 
PHURTERBIUMTHORIUMTHULIUMYTTRIUM" 

289 LET I=(INT (RNDX¥22)+1)%7-6: LET BS=AS(I 
TO I+6): RETURN 

300 LET AS="JAMESDAVIDEDGARHENRYCAROLHELENBR 
ITANSALLYSARAHSUSANPE TERS IMONMANDYKEVINSCOTTNI 
GELMILESROBINVENUSROMEOCECILDYLANPERCYLEIGHEM 
ILYPABLOFRANKCLIVEDIANANICKYTRACYBARRYGEOFF TE 
RRY" 

320 LET I=(INT (RND¥34)+1)¥5-4: LET BS=AS(I 
TO I+4):2 RETURN 

35@ IF RND>.S THEN GO TO 375 

369 LET AS="CARRYCATCHMARRYLAUGHTWISTBRINGFE 
TCHWRITECLIMBWORRYGL I DEAWASHSHOOTDODGEPUNCHSM 
ACKSCALETHROWLOATHDRIVEPRESSTASTESPEAKHURRYSC 
ORETRAILFORCEPROVETRACEPAINT" 

3796 LET I=¢INT (RND¥39)+1)%5-4: LET Be=As(I 
TO I+4): RETURN 

375 LET At="COLOURTHRILLUNLOCKAFFECTABDUCTFO 
LLOWATTACKDEFENDDIFFERSELEC TOUTPUTDEF INECHANC 
EMODIFYREMAINACCEPTSPRINGASSUREVANISHFINISHTR 
AVEL” 

399 LET I=(INT (RND¥21)+1)¥6-5: LET BS=AS(I 
TO I+5)s RETURN 
1998 PRINT AT @,93 PAPER 33 INK 75"H AN GM 
A N"*" 
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1965 PRINT INK 1’'’ "Which subject do you want 
2p 


1M1@ PRINT INK 4° '"LaeaeeeANIMALS"’ INK 3’ "2, 
«e«+sCOUNTRIES OF THE WORLD"’ INK 4°"3.....COM 
POSERS & ARTISTS” 

1928 PRINT INK 37"4.....CHEMICAL ELEMENTS"’ 
INK 4°"5...e..CHRISTIAN NAMES"’ INK 37"6.....6 


ENERAL VERBS" 
1@5@ PRINT ’ INK 2’"Press the appropriate key 


1668 LET i#=INKEYS: IF CODE I%<49? OR CODE I> 

54 THEN GO TO 19698 

1878 GO SUB S+SSxVAL 1% 

1986 LET CS=BS: CLS 

199@ PRINT PAPER 3) INK 7jAT B,15;5"H AN GM 
A N* 

l1@@ LET S=@: LET C=@: LET 1=LEN b®: LET Y=13 
s LET xX=15 

1165 PRINT AT 11,153 INK 2} "Your guesses: ” 
111@ FOR f=1 TO 1: PRINT AT 3,13+f#235 INK 45" 

_"i NEXT f 

112@ PRINT AT 7,15; "Guess a letter” 


113@ LET IS=INKEYS: IF Is="" THEN GO TO 113d 
114@ IF CODE I%<65 OR CODE I19>99@ THEN GO TO 
113d 


206@ LET Si=S: FOR F=1 TOL 

2619 IF IS=BS(F) THEN LET BS(FI="*"5 GO TO 2 
148 

2426 NEXT F: IF S=S1 THEN BEEP .4,-15: BEEP 
»4,-25: GO SUB S@9@+19x%C: LET C=Crl 

2638 IF S=S1 THEN PRINT INK 45AT Y,X5I%: LE 
T X=X+2: IF X333 THEN LET X*15: LET Y=Y¥+t2 
29498 GO TO lizg 

21@@ PRINT INK 25AT 3,13+F#2j;1% 

2119 BEEP .3,38: LET S=Sti: IF S=L THEN GO T 
0 3808 

2115 NEXT F 

21398 GO TO 112% 

3088G PRINT AT 26,90; "WELL DONE! YOU -CORRECTLY 
GOT "3C$3" IN "3C+S35" GUESSES” 

S361@ FOR F=1 TO 4@@: NEXT F: CLS =: GO TO 1986 
S6¢@@ PRINT AT 17,15 INK Sj "SSSR": OR 
ETURN 
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5919 FOR F=5 TO 16: PRINT INK 3;AT F,2;"m": 

NEXT Fi RETURN 

5928 PRINT AT 4,2; INK 43" ": RETURN 

5038 FOR F=8 TO 5: INK 2: PLOT 24,112+F: DRAW 
23-F,23-F: NEXT F: INK @: RETURN 

5848 PRINT INK 13AT 5,93" ": RETURN 

5958 INK 2: CIRCLE 73,118,9: PLOT 79,128: DRA 
W 1,9: DRAW 9,1: DRAW -1,9: PLOT 76,128: DRAW 
1,8: DRAW @,1: DRAW -1,¢ 

5852 PLOT 73,118: DRAW 3,-3: DRAW -2,98: DRAW 
ee 

5956 PLOT 69,115: DRAW 18,98,2: INK @: RETURN 

5968 FOR F=72 TO 75: PLOT F,194: DRAW 9,4: NE 

XT F 


5662 PRINT INK 3;AT 9,9; "BM “3 INK SjAT 19,7 
i“ @6M°s INK S3iAT 11,95 "BR "fF INK SjSAT 12,8; " 
“t RETURN 


5978 PLOT 83,194: DRAW 19,19: DRAW 1,8: DRAW 
-19,-1@: FOR F=1 TO 3: CIRCLE 97,116,F: NEXT 
Fi: RETURN 
S289 PLOT 64,194: DRAW -10,19: DRAW -1,@: DRA 
W 18,-18: FOR F=1 TO 3: CIRCLE 51,116,F: NEXT 
Fi: RETURN 

5999 INK 5: FOR F=1 TO 4: PLOT 67+F,79: DRAW 
-28,-38: NEXT F 

5992 INK @: PRINT AT 16,53" “i RETURN 

519g INK 5: FOR F=1 TO 4: PLOT 79+F,79: DRAW 
29,-38: NEXT F 

5192 INK @: PRINT AT 16,123" " 

5118 PRINT AT 28,@3;"BAD LUCK! YOU'VE BEEN HAN 
GED. THE ANSWER WAS "3;B¢ 

5128 GO TO 3018 

7802 FOR L=5999 TO 5896 STEP 19: GO SUB L: NE 
XE L 

7258 INK 5S: FOR F=1 TO 4: PLOT 79+F,79: DRAW 
28,-38: NEXT F 

768 INK @: PRINT AT 16,123" " 

7989 FOR F=1 TO 3: FOR I=1 TO 11: BEEP .9@2,I: 
NEXT I: LET ISUSR 3289: NEXT F 


Ssgge PRINT INK 7;"B &@ 8 8 8 OR O@ | 
EB @ESEESE ESE | EERERE & EEE S88 
ES GBEEEER R RRR Bee 
BREE BHREERAa@ Os SHS & EEE &" 


266 Hangman 


8919 FOR F=7? TO @ STEP -1i: FOR I=17 TO 21: PR 
INT AT I,@§} GVER 15 INK F;3" 

"; BEEP .91,5: BEEP .@1,1@: NEX 
T IT? NEXT F 
9888 PRINT AT 5,163 INK 33;"@ Paul Stanley" 
9356898 PAUSE 259: CLS : RETURN 
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Roots 


You are about to see your infallible micro make an unbelievably simple 
mistake -— that even a four year old child would spot! 


In the section of the program where you are asked to enter numbers 
yourself, we have actually included an ABS function in LINE 670 to 
help your computer out of its predicament! Computers are happiest in 
Binary arithmetic but would probably settle for Hexadecimal as a 
compromise — but if we humans insist that micros communicate with us 
in the Decimal system then we have only ourselves to blame if the 
computer seems to get it wrong occasionally. 


1g REM ¥* #*¥ ROOTS 
@19383 MICHAEL BEWS 
15 BORDER 3: INK 7: PAPER 1 
2@ POKE 236089,111 
sa FOR X=1 TO 3: FOR Y=@ TQ 7: READ a: PQKE 
USR CHRS (143+X)+Y,a: NEXT y: NEXT X 
6@ FOR X=1 TO 4: FOR Y=9 TO 7: READ a: POKE 
USR CHR® (146+™%)+Y,a! NEXT y: NEXT X 
19@ CLS : PRINT "ROQTS  @1983 MICHAEL 
BEWS ” 
119 PRINT INVERSE 13 "THIS PROGRAM CALCULATE 


5S ROQATS USING BOTH THE INTERNAL ’* * ”’ FUN 
CTION IN THE COMPUTER ROM ANDNEWTON/RAPHSON R 
EITERATIVE APPROMIMATION. 

115 PRINT INK 73 PAPER 23 FLASH 135” WHEN 
Is A *’S’ NOT A ’S’ ?? 7 

1290 PRINT INVERSE 15" THE PROGRAM WILL D 
EMONSTRATEONE OF THE PROBLEMS FACED BY you 


R COMPUTER WHEN IT TRIES TO % 

13@ PRINT INVERSE 13; "CONVERT THE RESULT OF 
ITS BINARYSYSTEM CALCULATIONS INTO DECIMAL 
FOR DISPLAY ON THE SCREEN. 0" 

14@ PRINT INVERSE 1;"ALTHQUGH WE WOULD NEED 

TQ EMPLOYMACHINE CCDE METHODS TO ACTUALLYSEE 

THE *BIT’ DIFFERENCE BETWEENTWO SEEMINGLY ID 
ENTICAL NUMBERS,WE CAN"; OVER 13CHR® @;CHRS 2 
;CHRS 8; INK 13 PAPER 73"___"3 OVER @3 


268 Roots 


13@ PRINT INVERSE 15" SHOW YOU THE ’IMPOSSI 
ELE’ AS YOUR COMPUTER ’FAILS’ TO RECOGNISE 
THE NUMBER FOR WHICH IT IS SEARCHING! 

166 INPUT INK 7; PAPER 23 "PRESS <ENTER> "5 
AS 

178 CLS : PRINT " ROOTS @1983 MICHAEL 
BEWS " 

175 PRINT INVERSE 13" "j;TAB G3; "ANY ROOT MAY 
BE CALCULATED BY REITERATIVE APPROXIMATION 
USING " 


189 PRINT INVERSE 15" "“STAE Gj" A =12 
N + GE(R-LIEF REG“ (R-1) 
"STAB G35 


165 PLOT 50,128: DRAW INVERSE 156,94: PLOT ? 
2,128; DRAW INVERSE 1552,¢4 


is? PRINT INVERSE 15" "STAB @; "WHERE N=ORIG 
INAL NUMBER R=ROOT NUMBER REGUI 
RED G=ANY NUMBER 
A=APFROXIMATION TO AN PRODUCED B 
Y THE FORMULA" 

168 PRINT INVERSE 15" “3 TAB @3 "IF A<>G THEN 
WE LET G=A AND REPEATEDLY APPLY THE FORM 
ULA, MAKING G EQUAL TO THE PRECEDING VALUE 


OF ?A’ UNTIL A=G. AT THIS POINT"5TAB G5" 
A = AN"STAB 3 
19d INPUT INVERSE 13; "PRESS<XENTER> "3 X%S 


192 CLS : PRINT "ROQOTS @1983 MICHAEL 
BEWS ” 


19S PRINT INVERSE 135" "$TAB G5" A =12 
N + GECR-1L)F R£G*(R-1) 
E6"3TAB G5 


196 PLOT 56,152: DRAW INVERSE 136,98: PLOT 7 
2,152: DRAW INVERSE 1352, 


290 PRINT INK 73 PAPER 23" EXAMPLE TO 
FIND 8A16 i 

2198 PRINT INVERSE 15" "§TAB O3"LET G=3 (A R 
EASONABLE GUESS AS BAL6=@ AS YOU KNOW!) " 
3 TAB G5 


228 LET G=3: LET N=16 

225 GQ SUB 234 

22? GO TO 235 

2308 LET A=(N/G+G)/2: RETURN 
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235 PRINT PAPER 53 INK @3"G="3G3" GIVES A=" 
ij AI TAB Bj 

249 PRINT INVERSE 1i3"WE NOW LET G="j3As3TAB 9 
3" AND TRY THE FORMULA AGAIN zs 

245 LET G=A: GO SUB 23¢ 

259 PRINT INK @3 PAPER S53 "G="3Gi" GIVES A=" 
ASTAB 93 
268 IF A=G THEN GO TO 28d 

278 GO TO 245 

258 FRINT INVERSE 1j" THEREFORE A16 = 
"SASTAB S35" “S3TAB Sj 
285 PRINT INK 73 PAPER 23" YOUR COMPUTER SA 
YS THAT BA1G="s5A;5" " 

298 PRINT FLASH 1;AT 21,43)" LOOK AT THIS Ex 
AMPLE CAREFULLY " 

389 INPUT PAPER 463 INK 13 "AND THEN PRESS <E 
NTER> "“GxKRo 

3ig@ PRINT INVERSE 1;AT 5,95: FOR x=1 TO 16: 


PRINT INVERSE 13" "3TAB @3: NEXT *: PRINT T 
AB 313" ” 

328 PRINT INK 73 PAPER 23AT 4,93" EXA 
MPLE TO FIND BAZS : 

33@ PRINT INVERSE 15" "3TAB 93 "LET G=3 AGAI 


N(BAZS=5 AS WE KNOW) " 

348 LET G=3: LET N=25: GO SUB 23¢ 

359 PRINT PAPER 53 INK @3"G="3G;" GIVES A=" 
jAS TAB 95 

36@ FRINT INVERSE 13 "WE NOW LET G="j;A; TAB © 
me AND TRY THE FORMULA AGAIN ts 
3798 LET G=A: GO SUB 254 
38@ PRINT INK @3 PAPER S53; "G="3G3" GIVES A=" 
AS TAB 3 
392 IF A=G THEN GO TO 442 
395 GO TO 372 
4@2@G PRINT INVERSE 13" THEREFORE A2ZS = 
"SAITAB 3 
492 PRINT INVERSE 1;TAB 143 FLASH 13 "BUT"$ 
FLASH @;TAB 23 @ 

495 PRINT INK 73 PAPER 23;"YOUR COMPUTER "3 
FLASH 13; "FAILED"; FLASH 43" TO STOP ON THE FI 
RST "; INK @3 PAPER 53"G=5 GIVES A=S5"53 INK 73 

PAPER 23" BECAUSE G DOES NOT EQUAL PRECISE 
EY Sort 
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dig PRINT AT 21,93 FLASH 13; "ENTER" 3 FLASH 9; 
"7 R?* TO REPEAT THE EXAMPLES" 
420 INPUT INK 73 PAPER 15"OR <ENTER> TO TRY 
YOUR OQWN"3 Xs 
436 IF xk$="R" OR X#="r" THEN GO TO 192 
44@ CLS : PRINT " RQOTS @19383 MICHAEL 
BEWS " 
380 PRINT AT 1,0; "ENTER NUMBER (N): " 
SOS INPUT INVERSE 13">@ AND <ig@eegag “SNF 
Sig IF Ne="" THEN GO TO 5985 
SiS FOR X=1 TO LEN N#®: IF N#(X)<"@" OR N#(X) 
>"9" THEN GO TO S@5 
S206 NEXT X 
530 LET N=VAL N#: IF N<.@1 GR N>Lg@egeqegaq THEN 
GO TO S5@5 
S4@ PRINT INVERSE 1;AT 1,165N 
SS@ PRINT AT 2,98; "ENTER NUMBER GF THE DESIRE 


D ROOT” 

S6o@ INPUT INVERSE 15"ROOT (>1 AND <199) "SR 
$ 

S709 IF R#="" THEN GO TO 548 


S8@ FOR K=1 TO LEN R®: IF R¥(X)<"G" OR RB(K) 
>"9" THEN GQ TO S564 

S99 NEXT X 

69@ LET R=VAL R#: IF R<2 OR ROOD THEN GO TO 
569 


695 PRINT AT 3,53": ROOT NUMBER = "5 INVERSE 
1;R 
61@ LET G=ZK(N*(1/R)I)°5 LET X=1 


6590 LET A=(N/G*(R-1)4+GH(R-1))/7R 

668 PRINT AT 6,05X%3 "> A="FA 

676 IF ABS (A-G)<.@961 THEN GO TO 789 

68@ LET K=xX+1: LET G=A: GO TO 4659 

73@ PRINT INVERSE 15AT 8,93 "THE "SR53" ROOT 


OF "5N3" IS "STAB 195A; TAB G3 

7i@ PRINT AT 13,63 "CHECK,USING COMPUTER °%*°F 
UNCTION"; " "3TAB OsA;5" “a eR ce = "SACR 

726 PRINT INVERSE L5AT 21,05" ENTER 


"@? TO QUIT id 

?3@ INPUT INVERSE 13"OR <ENTER> TO TRY AGAI 
N "3X 

748 IF X#="@" OR X$="q" THEN STOP 

75@ GO TO 44¢ 
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999 STOP 

190G DATA 31,16,16,16,144,89,32,9 

1@19 DATA 112,144,32,64,249,9,8,9,248,16,112, 
16,249,9,9,9 

LOSH DATA 2,/4;8, 6) 165-06, 52; 32, 525-165 16;6 585 45 
DO. G4 32, 165 16,8 By Fy 4s 49 Sy Oi 165 16592704,0 
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Bulls and Cows 


Choosing a four digit number, the computer will respond to your guesses 
(or deductions, we hope) by displaying a bull when you get a correct digit 
in the the right place, anda cow when a number you input also occurs in 
the computers’ number, but not in the same place. You should note that 
the computers number can have the same digit repeated. 


You can choose the number of guesses you’re allowed, making it more 
difficult for yourself as you get more practiced. 


1 REM Bulls and Cows @ Robert Erskine 
19 GO SUB 9983 
22 GO SUB 8989 
26 FOR x=it TO 4 
198 RANDOMIZE : LET R=RND: INPUT “How many g 
uesses do you want?"5t 
11g GO SUB !1g9¢ 
128 CLS : PRINT “I have chosen a number": PA 
USE 1¢2@ 
1398 GO SUB 289¢ 
135 FOR gq=1i1 To t 
149 INPUT “ENTER YOUR GUESS NOW (4 digits) " 
} LINE g#: IF LEN 9%<>4 THEN PRINT #13 FLASH 
s;“reinput correctly!!": PAUSE 68: GO TO 14¢ 
145 FOR f=1 TO 4: IF CODE g#(f)<48 OR CODE g 
S(Ff)957 THEN PRINT #15 FLASH 13 "Numbers only 
'i™: PAUSE 468: GO TO 148: NEXT fF 
15@ GO SUB 289 
1698 GO SUB 3992 
178 IF black<¢4 THEN NEXT q 
189 PAUSE 199: GO SUB 4999 
198 PRINT AT 21,43 "PRESS ANY KEY TO RESTART" 
>: PAUSE @: GO TO 182g 
2069 LET black=9: LET white=d 
285 DIM at4): DIM ht 4) 
219 FOR x=1 TO 4 
215 LET a(x)=VAL (gS(x)) 
217 NEXT x 
228 FOR x=1 TO 4 
238 IF at(x)=n(x) THEN LET black=black+i 
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24@ IF a(x)=n(x) THEN LET h¢(x)=1 
259 NEXT x 
26d FOR x=1i TO 4 
27¢ FOR y=1 To 4 
260 IF atx)d=nty) AND hty)=@ THEN LET white= 
whitet1l: LET hfy)=1: GO TO 3i¢g 
2°O NEXT y 
3igd NEXT x 
3290 PRINT 935 
336 RETURN 
1686 DIM n(4): REM choose 
1gig@ FOR x=1i TO 4 
1929 LET n(x) =INT (RND¥9) +1 
1939 NEXT x 
1@4¢@ RETURN 
29892 BORDER @: PAPER 1: INK 7: CLS 
2019 PRINT “GUESSES BULLS caws" 
2928 PRINT 
2630 RETURN 
34098 IF black#@ THEN GO TO 397¢ 
3419 LET f®13 
3022 FOR x=i TO black 
3G3G PRINT TAB (#)3 INK @3"°A"§ 
3949 BEEP .1,25 
39590 LET f=f +1 
3868 NEXT x 
39878 IF white=@ THEN GO TO 313¢ 
39868 LET f=22 
3985 FOR x=1 TO white 
3899 PRINT INK 73TAB (4)5°R"5 
319 BEEP .1,25 
Siig LET fefr+i 
3i2@ NEXT x 
3138 PRINT 
31698 RETURN 
4999 IF black<4 THEN GO TO 403¢g 
4919 CLS : PRINT AT 4,93;"You are correct. the 
number ",,, "I chose was "j 
4928 GO TO 494¢ 
4938 CLS : PRINT “That was not very good. The 
“ses “Number I chose was "35 
4949 FOR x=1i TO 4 
4959 PRINT n(x)$§ 
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49690 NEXT x 

4970 PRINT : PRINT : PRINT ; “and you guessed 
3 

4989 FOR x21 TO 4 

4998 PRINT a(x); 

4199 NEXT x 

4119 PRINT 

4129 RETURN 

890¢G PRINT AT 1,8; "Bulls and Cows": PRINT 

88198 PRINT “The object of Bulls and cows is", 

"to guess a four digit number ",“chosen by th 

e computer. After ","each guess the computer 

will ","“give you clues; each bull ", "indicate 

S a correct digit in thecorrect position and 

each cow ","indicates a correct digit in ","t 

he wrong position." 

8828 PRINT AT 21,4; "Press any key to start” 

8G39 IF INKEYS="" THEN GO TO 8839 

8624a RETURN 

9866 RESTORE : FOR x=USR "a" TO USR "b"+? 

9Big READ n 

9828 POKE x,n 

9B3G NEXT x 

984G DATA G,2,3,255,126,126,66,44,8,9,3,255,1 

24,126,64,44 

9@5a RETURN 
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Invaders 


How could we write a Bumper Book of programs without including the 
classic Invaders games? Well, here it is complete with shields and 
Mothership and a screen full of the dreaded Aliens. 


1g REM #** INVADERS - @1983 

MICHAEL BEWS 

26 DIM I (5) 

32 GO TO 462 

4D REM HXKKEKMAIN PROGRAM LOOP 

58 GO SUB 79: GO SUB 229: GO TO 58 

69 REM INVADER SHUFFLE ROUTINE 

19@ FOR X=U TO P: IF I(X+L¥P)=U THEN NEXT X 
> LET FxX#U; FOR X=U TO 49: IF I(xX)=U THEN NE 
XT X: GO TO 996 

126 IF FX=U THEN LET Fx=@: GO TO 189 

125 IF L+A>21 THEN GO TO 88g 

13@ PRINT AT Lt+A,@3: IF Z=-U THEN PRINT " 


we 
cy 


149 FOR X=U TO P: LET BS=I¢: IF I(P¥L+X)5U T 
HEN LET BS=" " 

158 PRINT BS; 

168 NEXT X 

16@ LET L=L+U: IF L>@ THEN LET L=@: LET Z=- 
2: LET C=C+U: IF C=V THEN LET C=: PRINT AT 
A,gi" i LET 
A=A+U. 

198 IF (L=@ AND A>@) THEN PRINT AT G,@;" 

"SAT G,INT (27%R 

ND); INK 236% 

20@ RETURN 

218 REM ¥¥KEYBOARD INPUT¥#** 

228 LET X#=INKEYS 

238 IF X#="" THEN RETURN 

249 IF (CODE X#=11 OR x#="7") THEN GO SUB 3 
3G: RETURN 

245 BEEP .98,-49 

258 IF X#<¢>"5" THEN GO TO 265 

255 IF XP<U THEN RETURN 

268 LET XP=XP-U! PRINT AT 29,XPiT#ji RETURN 
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265 IF X$<>"&S&" THEN GO TO 289 

278 IF XP>27 THEN RETURN 

275 LET XP=XP+U: PRINT AT 26,XP3TS3: RETURN 
2898 IF CODE X#<>8 THEN GO TO 2998 

2385 PRINT AT 298,XP35" "si: LET XP=xXP-Vi IF 
XP<@ THEN LET XP=0 

286 PRINT AT 26,XP3T#i: RETURN 

298 IF CODE X#<>9 THEN RETURN 

292 PRINT AT 28,XP;5" "33 LET XP=xP+V: IF 
XP>27 THEN LET XP#27 

295 PRINT AT 20,XP3T#3: RETURN 

328 REM ¥*ROCKET FIREXRREREE 

339 LET XN=®(XP-U+W)¥T: LET XS=XN-WEKINT (XN/W 
): IF (XS<>T AND XS<>T+T) THEN RETURN 

332 IF RR<L1 THEN PRINT AT 21,153 FLASH 13" 


TAKE COVER!!! @ "3 FLASH @: RETURN 

334 BEEP .12,35 

335 LET RR=RR-1: PRINT AT 21,3635" "SAT 21,3 
BIRRF 


348 PRINT AT 19,XP+U3 "A"3 

359 FOR R=18 TO @ STEP -U: IF SCREENS (R,XP+ 
U)="" THEN NEXT Ri PRINT AT 19,XP4U3" “FAT 
O,XP+U; "A";AT 21,W; FLASH 13 "MISS!" 3 FLASH @: 
BEEP .2,-15: FOR X=U TO 8@: NEXT X: LET SC=S 
C-Wi PRINT AT 21,63" "SAT 21,63SC;TAB Wi" 

"SAT @,XP+Us" ": RETURN 

369 FOR X=1 TO 3: PRINT AT R,XP+UjMS;: BEEP 
-02,30-(3*¥X): FOR Y=1 To 8: NEXT Y: PRINT AT 
R,XP+U;" "3: FOR Y=U TO Vi: NEXT Y: NEXT X: PR 
INT AT R,XP3" "SAT 19,XP4+U;" “3: LET SCeSC+ 
28G-(18G¥SGN R): PRINT AT 21,63SC; 

378 IF R>=A THEN LET I(P¥(R-A)+U+INT ((XP+1 
/4))e1 

382 RETURN 

459 STOP 

46@ CLS : BORDER 1: PRINT PAPER 13 INK 73" 
INVADERS @1982 M.BEWS": PRINT AT @,15 
OVER 13 "gt "s QVER 
g 

462 PRINT AT 11,5;"INITIALISING*" 
465 FOR X=@ TO 7: READ A,B: POKE USR "“S"+x,A 
: POKE USR “Z"+X,B: NEXT X: LET Ig="Sr7"+" * 
470 FOR X=@ TO 7: READ A,B: POKE USR "A"+x,A 
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: POKE USR "&"“+X,Bi NEXT X: LET TH=" "+"AB4 +" 

482 FOR X=9 TO 7: READ A,B: POKE USR "“C"+4+x,A 
: POKE USR "G"+xX,B: NEXT X: FOR X=@ TO 7: REA 
D A,B: POKE USR "J3"+xX,A: POKE USR "F"+X,B: NE 
XT 5 FOR X=@ TO 7: READ At POKE USR “£"+X,A; 

NEXT X: LET G#="CDLFS" 

499 FOR X=@ TO 7: READ A,B,C: POKE USR "J"+x 
»As POKE USR “A"+X,B: POKE USR "Z£"+X,C: NEXT 
xX: LET DS="*JAL"+" 2 

495 FOR X= TO G6: POKE USR "#"4+xX,24: NEXT X: 

POKE USR “#"+7,9: LET RS="4" 

497 FOR X=9 TQ 7: READ A: POKE USR “ff"+xX, A: 
NEXT X: LET Ms="”" 

599 LET RR=69 

Sig LET HS=98: LET TS=9 

559 PRINT AT 1,8;“USE YOUR ROCKET LAUNCHER " 
3T$%3" TO WIPE GUT THE INVADERS “3 IS5 

569 PRINT “ ANDTO DAMAGE THE COMMAND SHIP WH 
ICH ARRIVES LATER "3G%3 

S708 PRINT : PRINT "YOU CAN NOT FIRE WHILE YO 
U ARE BEHIND A LASER SHIELD “3D 

599 PRINT : PRINT “USE LEFT AND RIGHT CURSOR 

ARROWSTG MOVE YGUR LAUNCHER (with CAPS SHIFT 

to move faster). USE THE "UP? ARROW TO FI 
RE ROCKETS." 

692 PRINT TAB 33 "YOU HAVE ONLY "3RR+13" ROCK 
ETS." 

619 PRINT "%¥ *¥* H¥#¥ HERE KEKREKR HHH KH HE" 

628 PRINT “SCORE 28 FOR EACH KNOCKED OUT I 
NVADER AND 2898 FOR EACH DIRECT HIT ON 
THE COMMAND SHIP." 

799 PRINT "LOSE 18 POINTS FOR EACH MISS!!" 

719 PRINT : PRINT “ IF INVADERS GET CLOSE TO 

YOU THEY WILL BECOME INDESTRUCTABLE! " 

728 PRINT TAB 23; FLASH 13; "<PRESS ANY KEY TO 
START GAME>"; FLASH @ 

722 IF INKEY#="" THEN GO TO 722 ®& 

725 LET A=98: LET C=8: LET FX=8; LET L=8: LET 

P=?7: LET @=4: LET T=2: LET Uti: LET V=5: LET 

W=ig: LET SC=8: LET XP=8: LET Z=1 

738 BORDER 5: PAPER 5S: CLS : FOR X=98 TO G 


2 P 
RINT AT X,23: FOR Y=1 TO 7: PRINT INK 151633 
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NEXT Y: NEXT x 

759 PRINT AT 19,@3: FOR x=1 TO 6: PRINT INK 

3;D83;: NEXT X: PRINT INK 33 "LA" 

768 PRINT AT 29,9;57%3 

779 PRINT AT 21,@3"SCORE:"3SC3AT 21,153 "ROCK 
ET RESERVE: “;RR3 

792 GO TO 58 

799 REM ***END OF LOST GAME 

8G@ PRINT AT 5,9} PAPER 25 INK 73"YOUR PLANE 
T HAS BEEN TAKEN OVER. 

YOU SCORED "3;SC3" USING "$69-RRi" RO 

CKETS"i: GO TO 919 

998 PRINT AT 5,9} PAPER 13 INK 73"YOU HAVE W 
IPED OUT THE INVADERS, "3AT 7,93 "SCORED "3SC3" 
AND USED ";6@-RRi" ROCKETS";AT 9,13 FLASH 13 
“CONGRATULATION S"3 FLASH @ 

919 IF SC>HS THEN LET HS=SC 

915 LET TS=TS+SC 

928 PRINT AT 11,12; PAPER 6$ INK 2} "LAST SCO 
RE "SSC3AT 12,123} "HIGHEST SCORE "“3HSSAT 13 
,12;3"“TOTAL SCORE “j;TSSAT 15,23 FLASH 13 "PRE 
SS ANY KEY FOR NEXT GAME" 

938 LET XS=INKEYS: IF xX#="" THEN GO TO 939 
948 CLS : PRINT AT 11,123 INK 23 PAPER 63 FL 
ASH 13 "STANDBY"; FLASH @: FOR X=5 TO 1 STEP - 
1: PRINT AT 17,153X3: FOR Y=1 TO 89: NEXT Y: 
NEXT X: FOR X=1 TO 49: LET I(X)=@: NEXT X: LE 
T $C=@: LET RR=6@: LET XP=@: GO TO 725 

199@ REM *¥*¥*XXUSR DEF GRAPHICS 

193G DATA 68,608,148, 49, 115,286,51, 284,63, 252, 
(i, 246,193, 131,192, 35 

1949 DATA 27,224,31,248, 26, 88, 62, 124,255, 255, 
255, 255,85,178,42, 84 

1959 DATA G,8,8,8,7, 224, 31,248, 248,31,127, 254 
18,8,8,8 

196G DATA GB, 8, 63,252, 249,15,191,253,8,9,255,2 
55,127,254,8,8 

1978 DATA 126,255,8,195, 255,129, 255,69 

1288 DATA 255,255, 255,126,8,126, 255,255, 255, 1 
26,8,126,255, 255, 255, 1246,4,126,255, 255, 255,95, 
2,2 

1998 DATA G,82, 24,124,62,24,74,¢0 
2600 LET XS=INKEYS: IF X®="" THEN GO TO 2999 
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2918 PRINT CODE X#j" "si GO TO 2998 

39@9 INPUT A4,B,C#: PRINT AT 18,305" "SAT A, Bi 
C#;: IF SCREENS (4,4)="9" THEN PRINT AT 18,3 
Op" *"G 

381g GO TO 3998 
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Mushroom Invasion 


All right. So you’ve dealt with the worst that the galaxies can throw up. 
The Space Invaders, the asteroid belts, the nightmare timewarp tunnels, 
the vampire cats — you’ve seen it all haven’t you? Don’t you believe it! 
Things can only get worse. This time around you are faced witha 
mindless, soulless, heartless fungus . . . the invasion of the mushrooms. 
It’s all over for Earth. The mushrooms already cover half the globe and 
they’re moving in for the final kill. You are the commander of the only 
surviving security cruiser, and your laser cannons are running low. Wait 
until you see the whites of their undersides and make every shot count. If 
they hit your ship you’re finished. 


CLS 
PAPER @: BORDER @ 


1 

S 

8 
1g GO SUB 759g 
g 

14) 

g 


26 GO SUB 2969 
30 GO SUB 2199 
4@ PRINT BRIGHT 15 INK L3AT x,y5 "AUR" 


45 IF yo27 THEN LET y=2?7 
5@ IF INKEYS$="1" THEN GO SUB 4999 
69 IF INKEY$="5" THEN LET y=y-t 
7@ IF INKEYS="5" THEN PRINT AT x,yyt35" 
869 IF INKEYS="8" THEN LET yey+t! 
99 IF INKEY@="68" THEN PRINT AT x,y-35" " 
199 IF INKEYS="1" THEN GO SUB 4¢9¢0¢ 
195 IF y<it THEN LET y=1 
Lig PRINT BRIGHT 13 INK L5AT x,y5 "MUR" 
128 IF ATTR (x-1,y)=2 GR ATTR (x-i1,yt+1)=2 OR 
ATTR (x-1,y+2)=2 THEN GO SUB Sadg¢g 
138 GO SUB 3999 
149 PRINT AT x,y3 BRIGHT 13 INK 15 "AUA" 
15g GO TO 4¢ 
754 FOR m=@ TO 7: READ x: POKE USR "A"4+m,x 
NEXT m 
7469 FOR m=@ TO 7: READ x: POKE USR “U"+m,xs 
NEXT m 
776 FOR m=@ TO 7: READ x: POKE USR “A"+tm,x:s 
NEXT m 
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789 FOR m= TO 7: READ x: POKE USR "S"+m,x: 
NEXT m 
995 FOR n=9 TO 7: READ x: POKE USR “F"+n,x: 
NEXT n 
996 FOR n=9 TO 7: READ x: POKE USR "“C€"+n,x: 
NEXT n 
1989 RETURN 
19228 DATA BIN S9999G11,BIN GPEGPGGi111, BIN PggPgi 
LL11,BIN 18181919, BIN 1G1G1G19, BIN BSOggi1i1, BI 
N @OGGdL11, BIN SePGPgdPGit 
1939 DATA BIN L1111111, BIN L1L111L1111, BIN Litit 
111,BIN 19191919, BIN 19191G19, BIN 11111111, BI 
N L£LiiLL111, BIN LLiLiLii1it 
1g49 DATA BIN 1199990909, BIN L11@90990,BIN 11119 
99S,BIN BSiGiGigi, BIN Pigigigi, BIN itiigggg,BI 
N tilggee9g, BIN liggsggg 
1945 DATA BIN S8G1199G,BIN OBLiL1L119G, BIN 11111 
Lil, BIN L1111111, BIN GOLL1199, BIN GPG119g9dG,B 
IN S8GL11G8G9, BIN BGEGi1ggg 
2938 DATA 249,24, 24,24, 24, 24, 24,24 
2842 DATA BIN 19911981,BIN @1911919,BIN @1i111 
L1G6,BIN @@i11119G8, BIN O9G11119G, BIN PiL1i11119,BI 
N @iG@11G19, BIN 1gg1ige1 
296598 RETURN 
2960 LET x=68: LET y=1: LET W=@: LET C29 
29798 RETURN 
21969 PRINT INK 63" THE EARTH IS BEING ATTACK 
ED BY A FLEET OF MINDLESS BUT DEADLY MUSHROG 
MS.AS ALWAYS, YOU ARE ITSSOLE DEFENDER. THE LE 
FT AND RIGHTCURSOR KEYS WILL SHIFT YOU ABOUT& 
THE 1 KEY FIRES YOUR LASER.THE END IS INEVIT 
ABLE: IF YOU’RE HIT YOU'RE DEAD. BUT TRY AND N 
OTCH UP A MEAN SCORE BEFORE YOU Ga." 
2192 PRINT TAB 93 INVERSE 15 INK S3 "ANY KEY T 
G PLAY’ 
21985 FOR k=1 TO 128: BEEP .@5,.5: PRINT INK 
23"S "3: NEXT k 
211@ PAUSE 9: CLS 
21298 RETURN 
3099 LET W=INT (RND#¥29) 
3091 LET Me2¢g 
36895 LET V=RND#¥3S 
3O1g PRINT AT M,W3 INK 23"°S": PRINT AT M,WtV 
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3 INK 23; "%S" 

3412 BEEP .95,RND¥3B 

3@13 INK 2: INK 1! 

3915 POKE 23692,-1: PRINT AT 21,8'°' 

35G18 PRINT AT x,ys INK 13 "AUR" 

342a@ RETURN 

4998 PRINT BRIGHT 11 INK 6SAT x+l,y+1li"F"i R 

EM “F" is graphics F 

4919 IF ATTR (x+2,y+1)=2 THEN GO SUB 6999 

4920 BEEP .1,RND¥1i2 

4969 RETURN 

591@ PRINT AT x,y3 BRIGHT 13 INK 4#"CCC" 

5a13 BEEP .5,-48: BEEP .5,46: BEEP .2,18: BEEP 
-95,-35 

59298 CLS 

5939 FOR v=1 TO 7: BEEP .95,18-v: PRINT BRIG 

HT 13 INK 63TAB 4; "YOU HAVE BEEN DESTROYED. 

YOUR SCORE IS "3;C3"% . ANOTHER GAME? 

ANY KEY TO START": NEXT V 

597?¢a PAUSE g: CLS 

59868 RETURN 

69988 PRINT AT x+Z2,y+15 INK 635 "C" 

6991 LET C=Cri 

69198 RETURN 


283 


Countabout 


Kids and computers just don’t mix. Not if it’s your computer that is. 
They take up far too much valuable hacking time. However it has to be 
conceded that micros do have a role in the pedagogic process, and soit is 
not without some reluctance that we have included a selection of 
educational programs, of which this is one. This is for the very small, 
and has been designed to keep them quiet while you have an algorithm to 
work on, whilst at the same time teaching them the basics of counting. 


The program sets a series of counting problems from the numbers one to 
nine. You know, count the ships, flowers, cats, houses or whatever and 
— if the answer is correct — reward the little angels with ships moving, 
cats smiling, telephones ringing or the like. 


19 REM COUNTABOUT.....H.WALWYN 
15 LET X=G: GO SUB 9999 
17 LET Z2$=" " 
28 PAPER 5S: BORDER 5S: INK @: CLS : PRINT "C 
OUNTABOUT ” 
3@ PRINT : PRINT "A counting game for child 
ren aged 2-5" 
99 GO SUB il9¢g 
38 PRINT : PRINT "PRESS ANY KEY TO START PR 
OGRAM"” 
6@ LET K=RND: IF INKEYS=""_THEN GO TO 6% 
78 CLS 
88 PRINT AT 8,8; FLASH 1; "PLEASE PRESS ANY 
KEY" 
9@ LET K=RND: IF INKEYS="" THEN GO TO 99 
1gg CLS 
11@ LET @=INT ( (RND¥9) +1) 
12a LET K=INT (¢RND*¥S) +1) 
130 LET J=4: FOR I=1 TO @ 
149 IF [=4 OR I=7 THEN LET J=4: 
159 GO SUB L(1I) 
169 PRINT OVER 15TAB J; 
170 IF X=1 THEN GO TO 2¢¢ 
189 GO SUB L(K+9) 
192 GO TO 21¢ 
299 GO SUB L(K+19) 
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219 LET J=J+19G: NEXT I 

229 IF X=1 THEN LET X=9: GO TO 36¢ 

248 PRINT AT 9,9; INK 13"H OW MAN Y "GN 
$3" 2" 

258 LET AS=INKEYS: IF AS="" THEN GO TO 259 

26G IF CODE AS<49 OR CODE AH>S57 THEN GO TO 
256 

278 PRINT . INK L3TAB 18;A%: FOR L=1 TO 199: 
NEXT L 

289 IF VAL At=@ THEN CLS : GO TO 329 

290 IF VAL AS=(Q+i) OR VAL AS=(Q-1) THEN GO 

Ta 339 

398 BEEP .6,.5: BEEP .6,-2: PRINT TAB 23 FLA 
SH 13 BRIGHT 1; PAPER 4; INK 73;"N 0,W RONG 

ANSWER!" 

31g GO SUB 559g: GO TO 23g 

32a LET K=1: GO TO 1i3s¢ 

33a IF VAL At=G THEN GO TO 3992 

349 BEEP .2,.5: PRINT INK 2;"V ERY NEA 

RLY ue 

35a GO SUB 35599: GO TO 23g 

369 GO SUB 54699: PRINT AT 2,93 BRIGHT 15 FLA 
SH 13; PAPER @; INK 7;"C OR REC T" 


37a IF @=1 THEN PRINT Q;" "SNS(1 TO (LEN 
N$-2))3 GO TO 399 

388 PRINT Q3” “SNS 

399 FOR F=i1 TO 398: NEXT F: GO SUB 2eg¢: GO 
TO 8g 


1996 REM INSTRUCTIONS 

1918 PRINT : PRINT “There is no need to use t 
he* 

1928 PRINT “’ENTER KEY’ in this program." 
1936 PRINT : PRINT "Once the child knows wher 
e the numbers from i to % are on the keyboa 
rd," 

1856 PRINT “you can sit back and let the “3 
1969 PRINT "computer do a bit of teaching! 
a 

1196 RETURN 

2999 PRINT AT @,93 INK 2; TAB 29 

2919 GO TO D(@) 

219G PRINT "AS",," 8",," 8": RETURN 

22GG PRINT "C&D": PRINT "C£F"i PRINT "GEE": R 
ETURN 
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2398 PRINT "C£D",," £7",,"GEF"i RETURN 


5 33 
2499 PRINT “ _ ",,"4 B",,"HHI"s RETURN 
2599 PRINT "K£E£",,"GED",,"G£LF"t RETURN 
2698 PRINT "C£D",,"LED",, "GEF": RETURN 
2798 PRINT “ __",," A",," 4 ": RETURN 
2899 PRINT "C£D",,"LET",, "GEF"t RETURN 


2992 PRINT "C£D",,"G£7",,"GEF"i RETURN 

S9@G PRINT AT 4,83: RETURN 

S919 PRINT AT 19,983: RETURN 

99298 PRINT AT 16,84: RETURN 

S599 FOR L=1 TO S59@: NEXT L 

S698 PRINT AT 9,95" 

S6l@ FOR Li TO 3 

5615 PRINT * . 

S629 NEXT L 

5625 RETURN 

6999 INK @: LET N#@="H O U S E §": REM HOUSE D 

RAWING 

6991 PRINT OVER 13 INK @3" "3Z8( TO 26);" 
QGUBEf";26( TO 26)3 “QMBMMA"5ZS( TO 25)5 "2 

B*;26( TO 24)3;"8 §$ B"5 

6992 RETURN 

6199 REM CATS 

6191 INK 2: LET N#="C A T §S* 

61198 PRINT OVER 15 INK 235" @ A";Z28( TO 27)3 
“ EMME"; Z2S( TO 27)5 "=ANBBO="525( TO 26)3 

6129 PRINT OVER 13 INK 23" QMMP"7;ZH( TO 27)3 
“ SBME"; 28( TO 27)3" ms 

613d RETURN 

6299 REM TELEPHONE 

6210 INK 3: LET N@="T EL EPHONE S# 

6229 PRINT OVER 15 "°QMMMP"329( TO 27);" Se " 
326( TQ 27)5" (o)"$28( TO 26)3" "3 

62398 RETURN 

6396 REM BOATS 

6é3iga@ INK 1: LET NS$="S H I P §S" 

6329 PRINT OVER 135" "3" "s26( TO 29)3 INK 1 
"AR RA"§28( TO 27.5 "N552530"F5 RETURN 

6489 RE. LOWER 

6419 INK 4: LET N#="F LOWER §S" 

6429 PRINT OVER 13 "NHO";2Z%( TO 28)3 
7 "“§2@( TO 29)35" 7 "3Z#( TO 29)3;" UH“ 

RN 
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2786S REM HOUSE CORRECT 

7285 BEEP .5,1@-I 

7@1G@ PRINT OVER 13" ";Z$( TO 28);" GEMM" 
$ZS( TO 26)3"QMVUMVMA"3ZS( TO 25); "SVR"; Zs 
( TO 25); "MmGfFmm"s: RETURN 

719@ BEEP .5,19-1: PRINT OVER 13" PAP @"3Z8( 
TO 26)3" MM "3Z8( TO 27)3"=NGFO="4Z( TO 27)3 


“QMMP"3;Z2S( TO 28); "MMMM" 5Z26( TO 28)3" "$5 
RETURN 

7288 REM TELEPHONE CORRECT 

7219 PRINT OVER 13" RING"3ZS( TO 23); "QM 


“$28( TO 27)3" ZA "32$( TO 28)5;"(0)"5Z26¢( TO 
29)5" “ 
7226 BEEP .5,1.9%: PAUSE 5: BEEP .5,1.9: PAUSE 
38: RETURN 
73980 REM BOATS 
73085 BEEP .5,198-I 
7318 PRINT QVER 13" ¥ 
3"_R RA"{ZS( TO 2775" 


" "s32$( TQ 29)5 INK I 
:O"3: RETURN 
0 27);28( TO 27);Z2% 


7322 PRINT * 
( TO 27)3: RETURN 

7490 REM FLOWER 

74@5 BEEP .5,18-I 
7418 PRINT OVER 13"ANMO"3ZS( TO 29)3" 7 "3Z8¢ 
TO 29)3" F "fFZB( TO 29)3" “3: RETURN 

8999 RETURN 

9880 REM INITIALISE ARRAYS, GRAPHICS 

9919 RESTORE : DIM L(19): FOR F=1 TO 19: READ 
L(F): NEXT Fi DATA 5969,5999,5999,5819,5019, 
5918, 5020,5028,5028 

9928 DATA 6988, 6188,4208,63980,6488, 7999 ,7198, 
7288, 7388,7486 

9839 DIM D(9): FOR F=1 TO 9: READ D(F): NEXT 

Fi DATA 2199, 2288, 2398, 2488, 2598, 2690, 2780,28 

GG,2986 

994@ RESTORE 9960: FOR F=8 TO 7: READ A,B 
9958 POKE USR ("A")+F,A 

986@ POKE USR ("B")+F,128 

9878 POKE USR ("C")+F,B 

98828 NEXT F 

9890 FOR F=@ TO 7: READ A: POKE USR ("D")+F,A 
919@ POKE USR ("E")+F,@: IF F=3 THEN POKE US 
R (“E")4+F,255 

9118 READ A: POKE USR ("F")+4F,A 


— ee 
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9129 READ A: POKE USR ("G")+F,A 

913 NEXT F 

9149 FOR F=@ TO ? 

9159 POKE USR ("I")+F,128 

91468 POKE USR ("H")+F,@ 

9170 POKE USR ("J") +F,16 

918@ READ A: POKE USR ("“K")+F,A 

9198 POKE USR ("L")+F,8 

928G POKE USR ("MN") +F,1 

9218 POKE USR ("N")+4+F, (2*(7-F))-1 

922 POKE USR ("0") +F,255-((2*(F))-1) 

923@ POKE USR ("P")+F,255-((2*(7-F))-1) 

9246 POKE USR ("Q@")+F, ((2*(F))-1) 

925@ POKE USR ("R")+F,@ 

926@ READ A: POKE USR ("S")+F,A 

9278 POKE USR ("T")+F,16 

9268 NEXT F 

9299 FOR F=8 TO 7: READ A: POKE USR ("U")+F,A 
9489 NEXT F 

9498 POKE USR ("H"),255 

9599 POKE USR ("I"), 255 

9518 POKE USR ("J")+3,24@ 

9529 POKE USR ("L")+3,15 

9538 POKE USR ("M"),255 

95498 PQKE USR ("M"),255 

9559 POKE USR ("R"),255: POKE USR ("R")41,255 
990 DATA 1,8,2,9,4,8,8,3,16,4,32,8,64,8, 128, 
8 

9919 DATA B,164,8,4, 146,8,9,32,4,192,192,3,32,8 
9,16,9,4,14,8,8,16,9,¢4 

992@ DATA @,213,8,171,8, 213,15,171,8, 213,8,17 
{Gees Sod 

9938 DATA @,68,126,126,126,126,69,9 

9999 RETURN 
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